AN MS-DOS FILE SERVER FOR A PC-LAN 


A Thesis Submitted 

in Partial Fulfilment of the Requirements 
for the Degree of 

MASTER OF TECHNOLOGY 


by 

CIGY CYRIAC 




to the 

DEPARTMENT OF ELECTRICAL ENGINEERING 

INDIAN INSTITUTE OF TECHNOLOGY KANPUR 

FEBRUARY, 1990 



CERTIFICATE 


Certified 
a PC-LAN* has 
been submitted 


that this work entitled 'An MS-DOS file server for 
been carried out under my supervision and has not 
elsewhere for a degree. 



DR. A. JOSHI 
Professor 

Department of Electrical Engineering 
Indian Institute of Technology, Kanpur 



9 APR 1990 


CE^ITR^L LIBRARY 

I 1 V, s.'.ArvPUiR 


4ec. No. 



££- M- C^R 



ACKNOWLEDGMENTS 


I exprei-f.; my grs^.t.i tucJe and reEpect. to Dr. A. Joshi for hio 
c^Lrl. o quidancf; arid ernccju.r agcamc?nt dur ing tho; pioriod of my wc>i"i:. 

I am al s^^o indebto'd to Dr. B. K. E-ioeg and Dr. K. Fo 
.•^r x Vtathsar! of t.Fio El octr i ca..' Enqineer'inq cloptar tmeot as woJ.l as 
l‘i . Sqoaxgopan of tFitr IME def.'sartmtrnt. , for thiv t.iOE'f ul di. s-'OUS'ai ono 1 
had wi tfi tFiem in the initial stageo of my wark,, 

1 gratG-fuliy ac knowl O'clgo ttio c;c?-opf'rat i on extorido'd by- 
Mr S. S. Bhatriaga.r, Mr-. W. R„ Gogate^ Mr „ A.. Ray and Mr. M. 
SathiE-h of the !iDS Lab. Thanks are a«l so due? to m'v' friendo, 
especially Mr'. Rakesh Kumar and Mr. S. Hemachciridr'an . 

F-ina.lly I would like to thank De?nnie Fcitchie- of E.-fel 1 
Laboratories for haviri.g developed the powerful and ve?r'Sc),t i 1 e ’C’’ 
pr cjcir'affiirii ng language, wi tti which isoftware dov'elopment for t.h:'S, 
project was a fjlea.sant and valuable c;?xp'eri once. 


Cl GY CYRIAC 



ABSTRACT 


This thesis discusses the development of a file server for 

the IIT-K PC-LAN, a token ring local area network; for low-cost 

interconnection of IBM-compatible personal computers. Individual 

PC users are provided with transparent access to the MS-DOS file 

system maintained by the server. To a user, the remote file 

system appears to be on a virtual drive on his local „ • 

iiis local machine, and 

can be accessed as easily as a local drive. Users . 

vaers are provided 

with facilities for sharing one another's files on tk 

un the server, 

while also being able to exercise control over how and to what 
extent this can be done. In addition to the actual server, the 
software developed includes a redirector module for each client 
PC, a network driver and a utility package. 
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CHAPTER 


1 


INTRODUCTION 

With coihputers becomina t».allbr and cheaper. ueers have 

b.co»e .or. interested in connecting thee together to for. 

networks. A Local Area Network (LANI, characterised by its high 

data rate and s.all area of coverage, connects together a 

collection of computers, terminals and peripherals located in the 

same building. or in adjacent buildings, allowing them to 

intercommunicate and exploit the advantages of distributed 
computing. 


user-server model 

LANs increase the functionality of application software by 
".aking a whole range of resources and peripherals available to 
the user. Hardware such as large hard disks, printers, modems, 
dtc. can be accessed by computer users on a network through 

properly integrated LAN software This 1,1 ir.... 

tware. mis allows users to share data 

and expensive peripherals and send messages to „„e another. In 

this user-server model of distributed computing (Fig. 1.1) the 

user doe. all his actual computing on his personal computer. but 

various centrally located achinesonthe network carry 

«ut specific functions on behalf of any user who reguests them. 

For example, the network could have several 

^ i»i?verai disk servers 

that read and write raw disk blocks in response to user reguests. 
For a higher level of abstraction, it could provide file 

Offering file ayatem services. Such a server couH 

aerver could present an 

interface identical to UNIX, MS-DOS or anv otK 

® or any other popular file 
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system, allowing users to access remote files just as they would 
access files on their local secondary storage. Thus it would 
honor requests for opening, creating, reading, writing or 
deleting files, making or removing subdirectories, changing 
working directories, etc. 

A valuable network facility is the ability to share files 
among multiple users. This means that more than one user can read 
or update a file. The owner of a file should be allowed to decide 
if and how it can be shared with other users. Systems that allow 
sharing also provide some sort of locking facility to prevent 
multiple users from trying to simultaneously update a file. 

1.2 Objective of this project 

Previous project activities at IIT-K have succeeded in 
developing a LAN for low-cost interconnection of PCs. The PC-LAN 
is based on the token ring topology and can support a maximum of 
255 PCs. (Fig. 1.2). Simple file transfer protocols like TFTP have 
already been implemented on it. More information on the PC-LAN 
can be obtained from Appendix A and from references C13 and C2D. 

This thesis describes the development and implementation of 
a file server for the PC-LAN, to allow individual PC users to 
transparently access files maintained in an MS-DOS file system on 
a large central secondary storage device, e.g. a 100 MB hard 
disk. Transparent access ensures that users can use standard 
application software and still access remote files just as easily 
as their local files, without caring about the difference and 
without having to learn too many extra commands and procedures to 


achieve it. 



c:l us ter 
mod u 1 e 


sec and ar 
nodes 



The PC“"L AN t op a 1 oq y 
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In addition the system is expected to support file sharing 
and locking, to allow users to make the best possible use of the 
network, while also guaranteeing security and protection against 
unauthorized access. The system should provide reliable and 
error-free service with a minimum amount of delay. 

1.3 Overview of the system 

The software developed consists of four main modules s 

i. The server is a dedicated process running under MS-DOS on 
the PC meant to be used as the file server. It maintains an 
MS-DOS file system on its local hard disk(s), which is open for 
access by clients through the network. Individual users are 
assigned subdirectories in the root of the file system. The 
server accepts requests from clients for file/directory 
operations, processes them through calls to the local DOS after 
making sure that the user is permitted to do the requested 
operation in the specified directory, and sends back replies 
indicating success or failure. 

ii. The redirector is a module that is memory-resident in all 
client PCs. It provides a transparent interface between user 
processes and the server by intercepting the process' DOS system 
calls. Its primary responsibility is to ensure that the user's 
requests for file/directory accesses are channeled to the proper 
point s the local DOS for local requests and the server for 
remote requests. It also takes care of all the local housekeeping 
associated with the accessed files and translates system call 
parameters between DOS and server formats. 
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iii. The network driver is a device driver forming the interface 
to the PC-LAN hardware and is used by both the redirector and the 
server to send and receive messages over the token ring. It frees 
these processes from having to know about the details of the LAN 
hardware used and the protocol followed for communication. 

iv. The utilities are a collection of functions that allow users 
to login and logout conveniently, as well as to make use of some 
special functions supported by the server. These include calls to 
inspect or modify information like rights, group membership, etc. 

Fig. 1.3.1 shows a typical layout of the system, indicating 
the locations of the modules mentioned above. Fig. 1.3.2 shows 
the flow of local and reiiiote requests. 

1.4 Organization of the thesis 

Chapter 2 elaborates on the requirements outlined above and 
discusses the different design choices and issues. It also 
provides a general outline of the complete system. Chapter 3 
looks at the details of the actual implementation and gives a 
module-wise description of the software. Chapter 4 reports on the 
performance of the system and suggests directions in which future 
work can be done. 

Appendix A contains general details about the PC-LAN while 
Appendix B provides notes on using, maintaining and modifying the 
system. The complete source listing of the system is contained in 
Appendix C. 



















CHAPTER S 


DESIGN C0NS1DERATIDM5 

2, 1 The Server 

2.1.1 Disk service vs. File service 

There are two possible approaches to the pt-oblem of 
providing remote secondary storage. Me could have a remote disk 
sserver that provides each client PC with a small 'virtual disk' 
and allows the client to read and write sectors or it. Since all 
communications between the client and the server \*rouild be in 
terms of absolute sectors, it is up to the client to diecide how 
to use its virtual disk. For instance, the client co uL d build a 
normal MS-DOS file syt em on it or use i t as a raw data disk 
Cwith absolute disk read and write calls). 

This type of server would be simple to implement and would 
make it easy to isolate and protect the data belonging to each 
client PC. However, this also means that sharing data between 
clients becomes difficult. Even if a client is allowed access to 
another client's disk, it would be unable to inte rpret the 
contents properly siirce it is the other client and not the server 
that keeps track of what is stored on the disk, where and how. 
The clients could come to an understanding to resolve this 
problem, but then each client would get unrestricted access to 
t be other's disk, which is also undesirable. lr» short., it would 
be easy to have either total security or free sharing bait not any 
convenient combination of them. Another problem is that since all 
the housekeeping and maintenance associated with the virtual disk 
is done by the client, it would lead to a lot of traffic on the 



network . 


A file server, (Fig. 1.1) on the other hand, works on a much 
higher level. The server locally maintains a complete file system 
and allows clients to access files in it (open, read, write, 
ttc. All r Q in thit case is in terms of characters or blocks 
of characters belonging to different files. To the client, the 
server appears to provide a remote file system, not a physical 
disk. Leaving all the housekeeping to the server reduces network 
traffic. Using the higher level notion of files makes security 
and sharing easier since the files can be considered to be owned 
or shared by different clients and the server can then screen 
individual requests to decide how to respond. The system can be 
made much more flexible and easier to use than a disk server, but 
at the price of increased software complexity. 

2.1.2 Statelessness 

After deciding to have a server that provides access to 
files, we come to the question of how exactly the client and the 
server are to interact. The simplest way would be to use the 
handle-based mechanism supported by DOS. i.e.. The client 
contacts the server to open a file and obtain a handle. It then 
uses this handle to access the file and close it at the end. But 
this mechanism would work properly only over a communication 
channel that is 1007. reliable. In practice, a packet sent over a 
network is always likely to get lost, duplicated, dropped or 
delivered out of order, especially if it has to cross several 
networks to reach its destination. The following examples show 



the subtle effects of network unreliability on client-server 
interaction : 

i. The server opens a file in response to a client’s request 
and returns the handle, but the reply never reaches the client. 
In this case, the handle will never be used. Moreover the 
resources allocated for that handle will be wasted since the 
server cannot recover them by closing the file, without knowing 
whether the client has finished accessing the file or not. 

ii. The client opens a file, receives a handle and tries to 
read, say, N bytes from the file. The server responds and updates 
the file pointer, but the reply gets lo^. On timeout the client 
may send the same request again and the server will respond with 
the next N bytes. What the client receives is not what it asked 
for, but it has no way of knowing this. 

These and similar problems arise because the server 
maintains local state information about requests ('open file’, 
’current position’) and then interprets other requests on the 
basis of that information. Thus to work correctly, the server 
must be stateless, i.e., the response to a request must be 
completely independent of the previous history of requests. Note 
that this does not apply to the information stored in files 
(since the client expects to read back whatever it wrote), but 
only to the information about previous requests. 

The requirement of statelessness affects the format of the 
request and reply messages. Obviously the request must contain a 
field indicating the operation to be performed. But since the 
client should not rely on the state of the server, each request 
must be self-contained. The client must not assume, and the 



server must not maintain, any notion of ’current directory' or 
’handle’. To be more specific, a request must always contain the 
complete pathname of the file being accessed and also the 
absolute position within the file, in case of I/O requests. 

2.1.3 Statelessness vs. efficiency 

The server has to depend on its local operating system to 
actually access the files requested by the client. If it is not 
allowed to maintain any state information at all, it would have 
to open the specified file, perform the required operation and 
close the file each time. But opening and closing files for each 
request would^ lead to a lot of overhead and make the server 
inefficient . 

To have a stateless and yet efficient server, we must note 
that it is the interface between the client and the server that 
is required to be stateless. There is no reason why the server 
should not depend on the state of its local OS since, after all, 
they communicate through a highly reliable channel (the system 
call interface). The only requirement is that this state 
information must never be passed on to the client and the client 
must never assume that some state information is being maintained 
on its behalf. The server, while presenting a stateless face to 
the client, can maintain a set of open files internally for 
ef f i ciency . 

A good way of doing this would be to maintain a cache of 

recently accessed and opened files. Each entry in the cache 

% 

should contain the full pathname of the file (for communication 



with the client) and the file handle (for communication with the 
local OS). When a request arrives, the server looks in the cache 
first for the specified file. If there is a cache hit, it can do 
without having to open the file again. If not, the file is opened 
and an entry made in the cache. 

Since there is a limit on the numoer of files that can oe. 
kept open by a process, the server will often have to choose a 
file from the cache to close before opening another one. The LRU 
(Least Recently Used) replacement policy is one that performs 
well on the average. Under this, the file that is selected to be 
replaced is the one that has been used least recently. An extra 
benefit of this is that if a client opens a file and then 
crashes, its file entry will quickly become the least recently 
used one in the server cache and get replaced at the very first 
opportunity. 

2.1.4 Security and sharing 

As mentioned before, since a file server carries out all its 
transactions in terms of files rather than disk sectors, 
incorporating features that ensure file security and allow proper 
file sharing is feasible. Files and/or directories could be 
associated with particular users who would be considered as their 
owners. The owner of a file should be able to access his files 
freely and decide if and how they are to be accessed by other 
users. Extending this further we could have groups of users, each 
of whose members could be allowed access to all or some of the 
other members' files. Users and groups could have predefined 
rights which determine what operations they are allowed to do in 



defined 


their- respective domains. Thiese rights could be 
separately for different operations (read, write, delete, etc.) 
and over each file/directory. Thus being the owner of a file or a 
iruennber of a group determines if that file can be accessed and the 
owner'-sA group's rights determine how it can be accessed. 

Wtie n a file is permitted to be accessed by more than one 
uiser at a time, unexpected results may occur when two or more of 
them try to update or modify it simultaneously. To avoid these 
problems there iriusl be some sort of file/record locking facility 
hy whi ch a user can request and be granted exclusive access to a 
fiLe er a portion of it, during which period all other attempts 
to acces s it will fail. 

Unauthorized users must be prevented from accessing the 
system- This is usually taken care of by a simple password 
mechandswi at the time of logging in. 

Fin-ally there must be a special user, in charge of overall 
system management . In view o-f his responsibilities this user must 
have complete control over the whole system under all conditions. 
In particular, he must not be impeded by the restrictions of 
o^n ershi pA r ights mentioned above. 



2 . 1.5 


Organization of the server 


Having looked at the requirements of a file server, we can 
now see how they are implemented in the proposed system. 

i . Bas i c st ructure 

The server is implemented as a user process running under 
MS-DOS. It continually waits for a request from a client, 
performs the specified operation if possible and sends a reply. 
It maintains a complete MS-DOS file system, doing all file 
accesses through MS-DOS system calls. The server appears 
stateless to its clients, while internally maintaining a cache of 
recently accessed files for efficiency. 

Access to the system is restricted to those clients who are 
registered as users. A user identifies himself at login-time by 
supplying a password. A special user called the superuser is 
responsible for the overall management of the system. Unless 
stated otherwise, none of the access restrictions to be discussed 
below apply to the superuser. 

Each valid user has a directory of the same name in the root 
of the file system. He is considered the owner of this directory, 
its subdirectories and all files in them. Normally only the owner 
of a file is allowed to access it. But users can get together to 
form groups to facilitate file sharing. 

i i . Rights 

All file/directory operations are regulated by access rights 
that dictate which of the following file operations are allowed t 
Open, Create, Read, Write, Delete, Search, Parental 



(parental rights are required to create subdirectories). 

These rights are defined separately for users, groups and 
directories. User rights and group rights determine what 
operations individual users and groups will be allowed to do and 
are set by the superuser. The owner of a directory decides which 
groups will be allowed to access files in it and sets the 
directory rights to indicate what operations they will be allowed 
to do. The owner can also declare any of his directories to be 
public, allowing all other users to access it (subject to the 
directory rights). Note that the directory rights do not place 
any restrictions on the owner's activities; he is controlled only 
by his user rights. Also, rights are not defined over individual 
files. This is done to reduce the amount of information the 
server has to keep track of- 

Finally, at the lowest level, we have the file attribute 
security provided by MS-DOS in the form of the read-only 
attribute bit. This is a restriction even the superuser cannot 
override . 

An example will help to clarify s if a user successfully 
logs in and tries to,, say, delete a file from a directory he will 
be allowed to do so if - 
He is the superuser 
AND the file is not read-only 
OR 

He is the owner o-f the directory 
AND he has the right to delete 
AND the file is not read-only 



OF 

le has the right to de le-le 

)ND he is a member of si group with the right to delete 
tND the owner has alLowe d this group to access his directory 
tND the owner has allowed o thors to delete in his directory 
>ND the file is not rea«d-onily. 

OR 

le has the right to delet«« 
iND the directory is publ ic 

^ND the owner has allowed op»thers to delete in his directory 
^ND the file is not reacd- ormly. 

L i i . Locking 

To allow file/recoB'd Locking, requests to open a file in the 
shared mode and to 1 ock-/ui.nltock records within a file (-facilities 
provided by DOS) are 5«jp-pc3rted. But this is one place where we 
lave to compromise on o«jr r-equirement of statelessness, since the 
server has to agree t o keep a file open exclusively for a 
particular user. The dantger here is that if the client crashes 
without closing the f il e,* ether clients may never be able to 
access it. 

i V . Miscel laneo us 

Each user is assdgne-d i quota of disk clusters with which he 
must meet his storage resqi_Ji remen ts . Although he can temporarily 
exceed his quota, he wi 11 not be allowed to login or logout while 


in that condition- 


All MS-DOS system calls dealing with file and directory 
access are supported by the server. In addition, there are 
special calls to login and logout and to do user, group and 
directory inspection/maintenance . If any system call fails the 
relevant DOS errorcode is sent back to the client, allowing it to 
find out what went wrong. 

All information pertaining to users, groups and directories 

is stored in separate binary files which are read into internal 

tables at startup. Modifications made to them are written through 

to the original files to ensure data consistency. 

The information contained in the table entries is as followss 

User table entry - 

User name 

Password 

Rights 

Total clusters allocated 
Total clusters available 

Group table entry — 

Group name 

Rights 

Members 

Directory table entry — 

Directory name 
Owner 

’Public’ flag 
Rights 

Groups allowed access 



2.2 The Redirector 


In the proposed sy^s^eiii, all client processes that access the 
server are supposed to fce running under MS-DOS which, as suchr 
has no facilities for tCDitiimu.t) i cat ing with the server. We have to 
develop suitable sc3f'*tw» ar e to allow these processes to 

trans par en <,1 > accfeis '...lesS o-ii the server^. by ‘transparent access' 

we mean that all v)e 11 -tjefiaverd programs (including the COMIiAND.COM 
shell) running cinder MS- ECUS and accessing local files through 
standard system calls sh^eunldi also be able to access remote files 
on the server without Jbe imj aware of any difference- In this 

section we look at the r erfli rector, the interface between user 

processes and the server , thAt makes this possible. 

2.2.1 Transparent re fe*rei»ce 

The first question t-c be asked is how to refer to a remote 
file in a trans parent nitaitiner . Under MS-DOS the complete path 
specif i cat ion for a #i le» ffname in a directory dir on the 
drive *d* would be as -tfo IL-Ovws : 

ds \kdi rXfname 

Obviously the remote file spec if i cati on must be compatible 
with this naming scheme. 

There are two c hoiices : one is to have a special 

subdirectory called^ sa XREMOTE which would logically have 
the entire remote fil e system as its child. Then a file 
\dir\fnai»e on the server ccould be referred to as 

d !X4Ref10TE\dir\fname 

The other choice i_s to map an unused drive letter to a 
remote directory. Thus i f,. say, drive G is mapped to Vdir on the 



server, the above file specification would become 

G • \f name 

The second method has been chosen for the following reasons: 

i. It is more general, in the sense that different drives can 
be mapped to different remote directories, possibly on different 
servers as well. This could also be done with the first method 
but then the pathnames tend to get too long and references to the 
file will be cumbersome. With the second method, by contrast, the 
path specification can actually be made shorter by mapping a 
single drive letter to a long remote path. 

ii. This method will not look strange to DOS users since the 
SUBST command achieves quite the same thing with local files. (But 
there the only objective is to save a lot of typing.) 

iii. This method is better from the point of view of efficiency 
too, since determining if a file is remote or not involves 
checking just one character (the drive letter) as against a 
string in the first method. 

Note that a drive mapped in this manner must be treated as a 
’network drive* (a logical drive), not as a physical one. 
Programs like FORMAT and CHKDSK that try to do absolute disk 
accesses on the drive should, and will, fail. 

2-2-2 Transparent access 

Having decided how to refer to a remote file transparently 
we can consider the problem of actually accessing it. 

For a remote disk server, the solution would be simple : 
install a special block mode device driver that responds to 



MS-DOS requests for sector i/o by contacting the server. But 
since we have decided to have a server that provides file- 
oriented service, this solution will not be good enough for the 
very same reasons outlined in Section E.1.1. 

Instead we have chosen to intercept all file access requests 
made by the user process and, depending on the kind of request 
(local or remote), pass them on to the appropriate routines (DOS 
or the server) for handling. 

Thus the following tasks have to be done by the redirector : 

i. Intercept all file access requests and filter out those that 
have to do with remote files. Since all file access requests have 
to pass through the DOS system call interface (int 21h), this 
would be a good point to do the actual interception. Determining 
if the file is local or remote is done by simply checking the 
drive letter, as given in the previous section. 

ii. Since the server is stateless, the redirector has to be 
responsible for maintaining local state information about the 
remote files being accessed by the calling process. This state 
information will be used when compiling a request to send to the 
server and must be updated on receiving the reply. For example, 
on opening a file the filename, access mode, file pointer 
position and handle must be recorded. For every subsequent i/o 
operation, the access mode must be checked to make sure that the 
requested operation is allowed and the file pointer position must 
be updated. 

iii. Translate requests between the MS-DOS format and the self- 
:ontained stateless format supported by the server. The details 
)f the translation will depend on the actual function. 
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-Requests involving file/directory names will need to have 
their names prefixed with the remote path represented by the 
specified drive. For this the drive— path mappings have to be 
stored in a map table which can be modified by appropriate 

utiiities. 

-For requests involving handles, the redirector has to store 
the full pathname of the file locally when the file is 
successfully opened, and retrieve it for all further accesses. 

-For i/o requests the redirector must keep track of the file 
pointer position. 

2.2.3 Implementation 

In terms of actual implementation the redirector is a 
memory-resident routine through which all system calls are 
routed. Only local requests are allowed to pass through to DOSj 
remote requests are handled by interaction with the server and 
invalid requests are returned signaling an error. In addition, it 
provides an interface for the special calls for user, group and 
directory inspection/maintenance, that are redirected to the 
server. These calls will generally be issued by the utilities 
(discussed later). 

The boundary between local drives and those that can be 

mapped to remote directories is decided by the number of logical 

% 

drives in the system (set by the 'LASTDRIVE = ' line in 

CONFIG.SYS). Drives below this are assumed to be local drives? 
any of the remaining can be used for mapping. 



Z.3 Utilities 


The system consisting of just the file server and the 
redirector would not be of much use without some utilities to 
assist in setting up and configuring. In addition to the basic 
utilities to login, logout or change network drive mappings, we 
need ways of conveniently inspecting and modifying the 
information about users, groups, directories and their rights, 
etc. In view of the large number of such utilities and their 
varied arguments and parameters, it would be very convenient to 
combine them all into a single menu-driven user-friendly package 
that can be used with the minimal amount of typing. The utilities 
for the system were developed with this in mind. 

The utilities currently supported are - 

i. Drive mapping : 

View current mappings 
Create a new mapping 
Cancel a mapping 

ii. Inspect/modify s 

Users s 

User rights 

Group membership (ir£,pect only) 

Cluster allocation 
Password (modify only) 

Groups : 

Group rights 


Members 



Directories s 


Owner (inspect only) 
Directory rights 
Restrict access/make public 
Groups allowed access 


Log in 
Log out 

All these utilities involve special calls to the 


redi rector 


which passes them on to the server. 



E.4 


The Network driver 


2S' 


In the previous sections we have been discussing the 
interaction between client and server, two distinct processes 
running on separate machines, without saying how exactly they 
th:-. ■ -'-"'-'r'-k driver' p-aye impt r 

allowing these processes to communicate, by transporting data in 
the form of messages between them across the network. 

2.4.1 The need for a driver 

Basically the driver forms an interface between processes 
and the PC-LAN card, allowing them to send/receive messages 
to/from one another without having to know anything about the 
underlying network architecture. This makes these processes 
independent of the actual protocols and hardware used for 
communication. Any change in hardware or protocols will affect 
only the driver itself and not the processes, so long as the 
interface between them and the driver stays the same. 

A process that wishes to send a message to another process 
should only be expected to write it to the driver, specifying the 
destination. The driver copies it into an internal buffer and 
assumes all responsibility for ensuring that it reaches its 
destination. Similarly incoming messages are verified for 
integrity and buffered internally. When a process reads the 
driver, it should get a copy of the first message that arrived 
since the last read, along with information about where it came 


from. 
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2.4.2 Protocol adopted 

Things are easy if the client and the server are on a single 
network. The data could simply be encapsulated in a PC— LAN packet 
and written to the PC-LAN card. However, to be more useful, the 
client and the server should be able to communicate across 
different interconnected networks. Thus we have to use some sort 
of internetworking protocol above the PC— LAN physical transport 
me chan i sm . 

Since most projects developed around the PC-LAN have used 
the DARPA Internet Protocol (IP) C33 C43, that is the one we will 
use. For flexibility, we have decided to send messages as 
datagrams using the User Datagram Protocol (UDP) of the DARPA 
protocol suite. This protocol can be used to distinguish between 
multiple recipients on a single machine. Each machine would be 
assumed to have a set of abstract destination points called ports 
at which incoming messages are queued until a process reads them. 
Even if the network hardware provides reliable delivery, 
internetworks do not guarantee reliable message transport. 
Packets can be lost, duplicated or delivered out of order when 
traveling across networks. UDP provides unreliable delivery. So 
the upper levels of software must use acknowledgments and 
retransmissions to ensure that messages arrive properly. 

This is not much of a problem from the point of view of 
client - server interaction since the server always replies to a 
a request, even if no data is to be sent. Thus when a client 
sends a request, the reply itself forms the acknowledgment. If 
the reply does not arrive before the timeout expires, the client 
will retry the request by sending it again. This does not do any 



harm since the server is stateless. Thus acknowledgments and 
retries are an inherent part of client - server interaction and 


we do not really need to use any special protocol (like TCP) that 
ensures reliable transmission by acknowledging and retrying 
individual messages. 

2.4.3 Implementation 

The network driver is implemented in the form of an 
installable device driver which the process opens and 
reads/writes to receive/send messages. 

Providing the physical transport mechanism is the PC-LAN 
card. (See the appendix for information about using the card). 
Since messages are to be sent as UDP datagrams, the data field of 
the PC-LAN packet will contain an IP datagram which in turn 
contains a UDP datagram in its data field. The data field of the 
UDP datagram will contain the actual data. 


I \ 


+ 

! PC— LAN header 
+ 


PC-LAN frame >1 

!< IP datagram >! 

J !< UDP datagram >! 


1 IP header ! UDP header 1 data ! 
+ 


The standard device i/o calls pass only a pointer to the 
data and the number of bytes to be transferred. But we need to 
pass more information - like the destination internet address, 
the destination port number and the source port number. To allow 
for this our device i/o calls expect a pointer to a control 
block which contains all the necessary information, including a 



pointer to the data itself. The structure of the control block is 
as follows ! 

foreign host internet address 
foreign port number 
local port number 
ack flag 

pointer to the message to be sent 

pointer to a buffer to hold incoming messages 

The ack flag is used to indicate whether an acknowledgment 
is expected in response to the message being sent. If this flag 
is not set a write call returns immediately after the message has 
been sent. Otherwise the driver waits for a message to arrive at 
the specified local port. On timeout the user is given the option 
of retrying, in which case the message will be sent again. 
Obviously this facility will be used only by the clients; the 
server does not need it. 

The driver has a pool of buffers into which incoming packets 
are read in. Once a packet is read in, it is verified and then 
enqueued at the port specified in its UDP header. Since reception 
of packets from the PC-LAN card is interrupt-driven, all this is 
done in the background. 

Opening and closing of local ports is done through ioctl 
calls. 

A process opens the driver and then opens a port on it. To 
send a message it issues a write call, passing a pointer to a 
control block which specifies the foreign host address, the 
foreign port and the local port to which replies must be 



addressed. For a read call the driver dequeues the first message 
waiting at the local port specified in the control block and 
copies it out to the specified buffer. The driver also extracts 
the source address and source port information from the header of 
the message and copies them into the foreign host address and 
foreign port fields of the control block, so that the calling 
process can know where the message came from. 




CHAPTER 3 

IMPLEHENTATION DETAILS 


3.1 The Server 

The server is implemented as a user process running under 

MS-DOS and interfacing with the network through the driver. It 

handles incoming requests by translating them to DOS system calls 

and returns the relevant information. 

The request message structure is defined in "freq.h" : 

typedef struct 
{ unsigned seq_no; 

• unsigned id; 
char name CMAXNAMLEND; 
int code; 
long pos; 
unsigned len; 
unsigned extra; 
char data CFMAXDAT3; 

} FREQ; 

The operation codes supported are s 

OPEN, CLOSE, READ, WRITE, - file i/o 

DELETE, RENAME, 

CHDIR, MKDIR, RMDIR, 

SEARCHF , SEARCHN, - search for matching files 

GREAT, CREATNEW, CREATTEMP, - file creation 

CHMOD, GETMOD, - file attributes 

SETDATE, GETDATE, - file date and time 

FLEN, GETSPACE, - file length, disk space 

LOCK, UNLOCK, - record locking/unlocking 

UTILS - various utilities like : 

LOGIN, LOGOUT, 

GETUSRINFO, GETGRPINFO, GETDIRINFO, 


/* sequence no. of req.*/ 
/# user identification */ 
/■» f i 1 e/ di re ct 0 ry name */ 
/■«■ operation code/error#/ 
/■» offset within file »/ 
/* length of data field*/ 
/* extra parameter */ 

/* data */ 



SETUSRINFO, SETGRPINFO, SETDIRINFO, 

GETUSRLIST, GETGRPLIST, GETUGRPS, 

MKUSER, MKGROUP, 

RMUSER, RMGROUP 

3.1.1 The server main program ( fs.c > 

The main program consists of an initialization stage 

followed by the main loop in which control stays until shutdown. 
The initialization includes : 

i. initializing the driver. 

ii. allocating memory for all the necessary tables and reading 
in the user, group and directory information from files on disk. 

iii. allocating memory for the file cache and initializing it. 

If any of these fails, the program aborts after printing the 
relevant error message on the console. 

In the main loop the server repeatedly waits for a request 
(getreq), processes it and sends the appropriate reply (reply). 
The processing consists of the following steps : 

i. The operation code specified in the request is checked for 
validity. 

ii. The function access_chk is invoked to ensure that the user 
making the request is allowed to perform the operation in the 
specified directory. 

iii. If any of these preliminary checks fail, the code field is 
set to the relevant error code. Otherwise, the handler routine 
corresponding to the operation requested is called and the code 
field is set to the code returned by it : 0 for success and the 
relevant DOS error code for failure. 



3. 1.S 


The driver interface 


( fsio.c) 


The dev_init function, which is called at the initialization 
stage, is responsible for opening the device driver and opening a 
port on it for use by the server. It also initializes the control 
block and registers the function close_dev to be called when the 
program terminates normally. close_dev merely shuts down the port 
and the device. 

The routines getreq and reply form the device interface, 
getreq simply reads the device and returns a pointer to any 
incoming message, or NULL if none are waiting at the port. reply 
receives a pointer to a reply message to be sent to the client 
and writes it to the device. These routines do not have to keep 
track of the address of the client; this is automatically taken 
care of by the way the control block is defined. (Sec. 3.3.6) 


3.1.3 Access control (fac.c) 

This file contains all the code and data structures that 
control access to the server file system. 


i . Tables 


Information about users, groups and directories is 
maintained in the tables utab, gtab and dtab respectively. The 
structure of each of their entries is reproduced below : 


typedef struct user 
{ char name CMAXUNAMD; 
char pwd CMAXUNAM3; 
unsigned rights; 
unsigned free; 
unsigned tncl; 
unsigned sen; 


/* user name */ 

/* password */ 

/* user rights #/ 

/* no. of free clusters ■»/ 

/* total clusters allocated */ 
/* starting cluster no. of 
user’s directory #/ 


> USER 
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typedef struct group 

•C char name CMAXUNAMD; f* group name */ 

unsigned rights; /* group rights »/ 

unsigned mems CMAXGRM3; f* members ■»/ 

> GROUP; 

typedef struct dir 

i char name CMAXNAIiLENU ; /■» directory name */ 

unsigned owner; /* owner of this dir. */ 

unsigned ispublic; /■» 'public' flag */ 

unsigned rights; /* dir. rights */ 

unsigned groups CMAXUGR3 ; /-^groups allowed access#/ 
struct dir #next; /* pointer to next entry #/ 

> DIR; 


Since 

users 

and groups 

are 

identified by their numbers. 

the 

user and 

group 

tables are 

organized as 

linear 

arrays 

and 

the 

correct entry 

is located 

by 

simpl e 

indexing 

. But 

for 

the 

directory 

table 

, a different 

approach 

must be 

used 

since 

' a 

di rectory 

is identified by 

i ts 

name and 

a linear 

sear ch 

of 

the 


entire table would be prohibitive. 


The solution chosen is to organize it as a hashed table. 
Thus the directory table is a linear array of pointers, each of 
which points to a linked list of directory structures. To locate 
a directory the hashing function is applied to its name to get an 
integer which is used to index into the directory table. If the 
directory exists it will be . found in the linked list there, which 
can be searched quickly. The hash function used here (hash) is 
quite simple and reasonably good - it just takes the sum of the 
characters in the directory name modulo the directory table size 
(which is a prime number). The whole lookup operation is done by 
the getdir function which accepts a directory name and returns a 
pointer to its entry if it exists or NULL if it doesn’t. 



i i . Looping in and out 

This module also contains the routines that allow users to 
log in and log out. On logging in, a user gives his user no. and 
password. After ensuring that these are valid the server makes an 
entry in its logtab array for future identification and returns a 
unique number (actually a pointer to the logtab entry) to the 
user with which he identifies himself in all further contacts. 
When the user logs out this entry is invalidated. 

i i i . Access checking 

An important routine in this module is access_chk which has 
the responsibility of rejecting illegal requests made by users. 
It does this using the information in the user, group and 
directory information tables and an array rtab that specifies the 
rights needed for each operation. The access_chk function first 
identifies the user making the request by finding his user no. 
through the logtab entry. It then checks if : 

i. the user has the right to perform the requested operation. 

ii. the directory in which the operation is to be performed 
exists. This is done by looking it up in the directory table 
using the getdir function. 

iii. the user is allowed to do the operation in this directory. 
This will be true if s 

- the user is the superuser 

OR 

- the user is the owner of the directory 

OR 

- users other than the owner are allowed to do this 
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operation in the directory 
AND the directory is public 
OR 

- users other than the owner are allowed to do this 
operation in the directory 

AND the user is a member of a group with the 

appropriate rights 

AND this group is allowed access to the directory 

If, after these checks, the request is found to be legal the 
function returns a value of 0 to indicate success. Otherwise it 
returns the error code corresponding to 'access denied'. 

i V . Table maintenance 

The functions utab_io, gtab_io and dtab_io take care of all 
i/o between the user, group and directory tables and their 
corresponding files on disk. When the server is initialized these 
functions are called with the INIT option, allowing them to load 
the information into memory. When an entry is modified, the 
corresponding function is called with the UPDATE option to enable 
the change to be written through to the original file. 

When a user creates/removes a subdirectory, the changes must 
be entered in the directory table to ensure correct response to 
future requests for it. This is done by the facmkdir and facrmdir 
functions which install/remove entries in the directory table, 
facmkdir assumes that the newly created directory belongs to the 
parent directory's owner and sets the fields of the entry so that 
all other users are denied access to it. There is also a 



collection of functions that allow users to inspect or modify 
their user, group or directory entries. getusrinfo, getgrpinfo 
and getdirinfo return the requested entry from the respective 
table while setusrinfo, setgrpinfo and setdirinfo replace the 
entry with the supplied one. An ordinary user can set only those 
fields over which he has control. These are : 

- for the user table s the password 

- for the group table s none 

- for the dir. table ! rights, the 'public* flag and 

groups allowed access 

getusrlist and getgrplist return a list of names of all 
valid users/groups in serial order, getugrps returns the numbers 
of the groups to which the user belongs. 

The next group of functions allow the superuser to install 
or remove users and groups, mkuser creates a new user table entry 
with the name specified in the name field of the request. It also 
creates a subdirectory of the same name in the root of the file 
system. The password and rights of the new user must be set 
separately by the superuser with setusrinfo. rmuser removes a 
user from the system by deleting his entry in the user table. It 
does not remove any files or directories belonging to the user. 

Similarly mkgroup and rmgroup are for creating and removing 
groups respectively. The rights and members of a newly formed 
group must be set separately by the superuser using setgrpinfo. 



3 . 1.4 


The file cache 


(fch.c) 


i • Organization 

The cache is organized as a doubly linked circular list of 
entries. Each entry is of the form : 


typedef struct fileinfo 
{ char name CMAXNAMLENTj 
int hdl ; 
int mode; 
int uno; 
int lock; 
long pos; 

struct fileinfo *next; 
struct fileinfo *prev; 
> C FILE; 


/* the filename */ 

/# handle #/ 

/* access mode */ 

/* user who opened it #/ 
/♦whether locked or not*/ 
/# current offset */ 

/* pointers to other 
entries ♦/ 


The 'lock' field indicates that the corresponding file has 
been opened in a shared mode and therefore must not be closed 
until requested to by the user who opened it. 

One of the entries in the cache is never used but forms the 
HEAD of the cache. The cache algorithm is such that HEAD->next is 
always the entry of the least recently used file (the OLDEST) 
while HEAD->prev is always that of the most recently used one 
(the NEWEST). Thus if we start at the NEWEST and follow the 
'prev' links we can run through all the entries in the order of 
their recent access and finally reach the OLDEST. 


i i - File access routines 

The file access routines provided by this module allow the 
server to access files without knowing about the cache; i.e. the 
cache is transparent to the server so long as it uses 
following primitives to access files s 

c_openf c_seek, c_read, c_write, c_close 


the 
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c_open is used to open a file - it returns a pointer to the 
cache entry (an object of type C_FILE) , which is used to access 
the file. It searches the cache to see if the user has already 
opened the file in the specified mode. If so, it makes this cache 
entry the NEWEST by calling promote and returns a pointer to it. 
If not, an attempt is made to open it through a system call. If 
this fails (because the file doesn’t exist or because access has 
been temporarily denied due to a sharing violation), c_open 
returns NULL. Otherwise getfree is called to get a free slot in 
the cache into which all the state information of the file is 
stored. This entry is then made the NEWEST. By this process, a 
file that is accessed very often always stays in the cache as one 
of the newest and a file that is not accessed for a long time 
cfuickly becomes the OLDEST and thereby, the prime candidate for 
replacement . 

c_seek sets the file pointer position. If the specified 
position is the same as the current one (as recorded in the cache 
entry), it returns immediately. Otherwise the position is set 
through a system call and the cache entry updated. 

c_read and c_write transfer the requested number of bytes 
and update the file pointer position in the cache entry. 

iii. Cache maintenance routines 

getfree returns a pointer to a free slot in the cache. It 
searches the cache starting from the OLDEST until it finds an 
entry that can be used (i.e. one that is not locked). If the file 
is open it is closed and a pointer to this entry is returned. 



that can be safely closed. 

promote is called when a file is accessed to give it a new 
lease of life in the cache. It simply removes the entry from its 
position in the list and inserts it between the HEAD and the 
NEWEST, thus making it the new NEWEST. Similarly demote makes a 
file the OLDEST by inserting its entry between the HEAD and the 
current OLDEST. This file then becomes the least recently used 
one . 

uncache is used to purge a file from the cache when its name 
is known. It locates its entry in the cache and calls c_close, 
which closes the file, invalidates the entry and explicitly makes 
it the OLDEST by calling demote. c_init is called to initialize 
the cache by allocating memory for it and setting up the doubly 
linked circular list structure. 

3.1.5 The request handlers (frh.c) 

This module contains the handler routines that actually 
perform the operations requested by users after the server has 
checked their permissions and rights. 

i . A typical handler 

A typical handler receives a pointer to the request message. 
It performs its operation using the necessary parameters from the 
request header and returns a code to indicate success or failure. 
For success the return code is 0, while for failure it is the DOS 
errorcode. The handler is responsible for setting the len field 
of the header if the reply is to contain any data. 
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ii - OPEN, CLOSE. RE^[>. WRITE 

As seen in the previcus sec<,i on the server does all file 
accesses through calls to c__o pe-n^ «_seel<, c_read and c_write. The 
READ and WRITE reguiesls are Imandled by fsread and fswrite 
respectively. They both call c_open to make sure the file is open 
and c_seek to make sure the file pointer is positioned correctly 
before calling c_read/’c_w«'i te . Before returning they set the 
extra field in the reply header to the no. of bytes transferred 
and update the pos field, fsread has to send data along with the 
reply, so it also sets the Hen fi eEd to the no. of bytes; fswrite 
sets it to O. 

iii. DELETE. RENAME 

The DELETE and RENf^HE r eqiuests support the wildcard 
character '?' in the filename- -fs delete first tries to delete the 
file straightaway. I-f it succeeds, or if it fails and the 
errorcode is ’access denied’, it can return immediately. 
Otherwise if the filename contains the character ’?' it tries to 
delete the file(s) with t he f cJb de lete call (int £1h, fn-dSh). 
fsrename follows the same l>gLc- 

iv. CHDIR. WKDIR. RHEIR 

fschdir simply returns OIC since the server does not maintain 
any ’current directory^'- The only point in routing this request 
to the server is to make sure that the directory exists and the 
user is permitted to change to LI- This has already been done by 
the access__chk function, so ther"e is nothing left for fschdir to 
do . 
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fsmkdir and fsrmdir perform their obvious functions and also 
update the directory table by calling facmkdir and facrmdir 
respectively. (Sec 3.1.3). 

V. SEARCHF, SEARCHN 

fssearchf and fssearchn are the counterparts of the DOS 
functions 4eh (search for first match) and 4fh (search for next 
match). The difference is that they support buffering of search 
information, for the sake of efficiency, i.e. These functions 
return search information about as many files as possible. 

fssearchf expects the full pathname of the file while 
fssearchn needs the search information from the previous search, 
since the server is stateless. The number of matching files whose 
information is being sent in the reply is placed in the extra 
field of the reply header. 

vi. GREAT, CREATNEW, CREATTEMP 

fscreat, fscreattemp and fscreatnew are the counterparts of 
DOS functions 3ch, 5ah and 5bh respectively, fscreattemp returns 
the name of the newly created file in the name field of the 
reply. 

vi i . Miscel laneous 

The server also supports requests to get and set the 
attributes of a file (GETMOD, CHMOD) and its date and time 
(GETDATE, SETDATE). 

The request FLEN is used by the redirector to find the 
length of a file, fslock handles the LOCK and UNLOCK requests for 


record locking. 
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3.E The redirector 

The redirector is a memory resident routine that provides 
user processes with transparent access to remote files on the 
server. It achieves this by chaining itself into the int 21h 
vector (the entry point for all system calls) and redirecting all 
requests for remote files to the server. It takes care of local 
state maintenance and translation between DOS and server formats. 
In addition it provides an interface for direct communication 
with the server through the DOS multiplex interrupt (int 2fh). 
This is mainly for the utilities intended to be used with the 
system, including for logging in and logging out. Some of the 
utilities (GETMAP, SETMAP , DELMAP, GETUNO) are handled by the 
redirector itself. 

3.2.1 The main program (rdr.asm) 

The main program is concerned with installing the resident 
portion of the redirector in memory and initializing the 
multiplex interrupt handler. First it makes sure that it has not 
been installed already (by calling chk_install) and that the 
network driver is accessible (through a call to chk_dev). It the 
chains itself into the multiplex interrupt vector (install) and 
calls the DOS function 31h to terminate and stay resident. At 
this point the utilities can be used to try to login to the 
server. The redirector proper will not be initialized until this 
is done. 

3.2.2 The multiplex interrupt handler (rmux.asm) 

The multiplex interrupt handler used by the redirector 
( rmuK ) uses the multiplex number 80h . On getting a valid call 
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(i.e. with AH = 0) it pushes all the registers onto the stack and 
calls the function rutils, passing it a pointer to the registers 
on the stack, rutils is responsible for handling all the utility 
calls. However the call with AL = 0 (which must be supported by 
all handlers) returns immediately with AL = Offh. 

The chk_install function is called by the main program to 
see if the redirector (more specifically, rmux ) has already been 
installed. It simply issues an int 2fh with AH = SOh and AL = O. 
The return value in AL will be Offh if the redirector is 
res i dent . 

The install function installs rmux by saving the original 
int 2fh vector and then setting it to point to rmux. 

3.2.3 The redirector interrupt handler (rint.asm) 

rint is the routine that actually intercepts system calls 
and redirects the ones having to do with remote requests to the 
server. The int 21h vector is set to point to it when the user 
logs in. The original int 21h vector is saved as the vector for 
int 62h (which is normally unused), allowing the redirector 
itself to call DOS through an int 6Eh. 

rint first saves all the registers on the stack and calls 
whereto, passing it a pointer to the saved registers. The value 
returned by whereto indicates whether : 

i. the call is purely local, in which case control is turned 
over to DOS (through an int 62h) after popping all the registers 
off the stack. 

ii. the call is to be redirected to the server, which is done by 
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calling remotecall. When remotecall returns, the registers on the 
stack contain the reply to the call in MS-DOS format. All that 
rint needs to do is make the carry flag reflect the status 
(success/failure) of the call, pop off all the registers and 
return to the calling process. 

iii. the call is in error and cannot be processed. This can 

happen if, say, the drive specified is neither a local one nor a 

drive mapped to a remote directory. In this case rint pops off 

the registers, sets the carry flag and returns to the calling 

process . 

3.2.4 Where to send a request (rwhere.c) 

Since DOS supports the notion of ’current’ drive, the 
redirector must keep track of it to properly handle calls that do 
not specify the drive. The variables n_drvs and cur_drv contain 
the number of logical drives in the system and the current drive 
respectively and are initialized at login. 

whereto is the function that analyses a system call to 

decide where it should be sent to - DOS, the server or back to 

the calling process with an error code. For calls with an ASCIIZ 
path specification this is done by checking the drive <or the 
current drive if none is specified). If the drive is local 
< <= n_drvs ), the call must be passed on to DOS; if it is a 

previously mapped remote drive, it goes to the server. Any other 
drive is invalid. Drive mappings are maintained in a map table 
(Sec. 3.2.6). 

For calls involving file handles, whereto uses the handle to 
index into the fptab table, which for remote handles will contain 
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a pointer to a structure containing the file state 
For unallocated or local handles the entry will be NULL. (Sec. 
3.2.7 ( i . ) ) 

The redirector does not, in general, redirect FCB-oriented 
calls. However the FCB calls 11h and 12h (search), 13h (delete) 
and 17h (rename) have to be handled for the sake of transparency 
because the DOS shell COtiMAND.COM uses them. 

In addition to the above calls, whereto also intercepts 
function Oeh (set drive) to keep track of changes in the default 
drive, and function 19h (get drive) to return the default drive. 

remotecall is the interface between the interceptor rint and 
the various handler routines (Sec. 3.2.7) that see to each remote 
function call. The handlers are invoked through a call table 
( real l_hndl r ) indexed by the function number (in AH). remotecall 
returns 0 if the call succeeds. If it fails it sets the saved AX 
register on the stack to the errorcode returned by the handler 
and returns 1. 

3.2.5 The device interface (rio.c) 

netio forms the interface with the network driver. It writes 
the message it is passed to the driver. The ack field in the 
device control block is set, so this driver call does not return 
until a reply is obtained from the server. netio returns a 
pointer to this reply. 

servercall is the function used by the handlers to send 
requests to the server and obtain replies. It accepts a request 
message from a handler, fills in the user's id and sends it to 
the server by calling netio. If the call succeeds it returns a 
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pointer to the reply message, otherwise it sets the global 
variable errcode and returns NULL. 

3.2.6 Drive mappings (rmap.c) 

This module contains the map table and functions that use or 
modify it. 

The map table is a 26-element array of 64-byte strings (one 
for each drive), each string containing the remote path to which 
its corresponding drive is mapped. Unmapped drives (and local 
ones) have NULL strings in the map table. 

rmap is the routine that manages the map table through the 
GETMAP, SETMAP and DELMAP calls issued by the utilities. To 
SETMAP , it first makes sure that the path exists by requesting 
the server to CHDIR to it and noting the response. It then copies 
the remote pathname into the map table. GETMAP simply copies out 
the appropriate map table entry to the user’s buffer while DELMAP 
cancels a mapping by writing a NULL into the map table entry. 

The pathmap function takes the path specified by the caller 
and builds the complete absolute path specification to be sent to 
the server by prefixing it with entries corresponding to the 
specified (or default) drive from the map table and the current 
directory table cur_dir (if the specified path is not absolute). 
It uses pathcpy to take care of any or fields in the 
specified path, since these are not recognized by the server, 
pathmap returns a pointer to the complete path, or NULL in case 
of an error in the path. 
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For example, <drv>: 

\ <mapped 

while <drv>: <palh> 

\ <mapped dir. 
fcbmap provides 


\ <palh> \ <filename> 
direclory> \ <path> 

\ <filename> becomes 
> \ <current dir.> \ 
the same service for 


gets expanded to 
\ <filename> 

<path> \ <filename> 
files specified th 


rough 


FCBs. 


3.2.7 The request handlers 

A typical handler receives a pointer to the registers saved 
on the stack (containing the call parameters in DOS format). It 
compiles a request message with the proper parameters, using 
pathmap to expand any path specification, and sends the call 
through servercall. The reply is then translated back into DOS 
format and returned to the caller through the registers on the 
stack. It returns the code returned by servercall. 


i. File requests (rfrq.c) 

ropen, the handler for DOS function 3eh, opens a remote file 
by sending an OPEN request to the server specifying the complete 
path and the mode. On success it calls lopen to allocate a file 
handle which it returns to the caller. 

lopen gets a file handle from DOS through halloc and also 
enters the file state information (name, mode, position) into an 
empty L_FILE structure allocated by falloc from the file state 
table ftab. The pointer to this structure is saved in the file 
pointer table fptab with the allocated handle as index. Thus for 
future accesses, f ptabC<handle>0 will point to the L_FILE 
structure of the file from which all the necessary state 



information can be obtained. The structure L FILE is defined as 


follows : 

typedef struct 

■C char nameCMAXNAMLENIJ ; /■«■ complete path spec ■»/ 

int mode; /«■ access mode */ 

int nhndls; /* number of handles */ 

long pos; /# current offset in file */ 

> L_FILE; 

rread (function 3fh) and rwrite (function 40h ) may have to 
call the server several times to transfer data since the amount 
of data that can be transferred through a single call is limited. 
First, they locate the L_FILE structure of the file, check the 
access mode to make sure that the transfer requested is permitted 
and get the current file pointer position. Then they repeatedly 
call the server with READ/WRITE requests respectively, updating 
the buffer pointer and the byte count between calls, until the 
specified number of bytes have been transferred. The file pointer 
position gets updated automatically since the server always 
returns the new position in the reply. 

rdel (functions 13h, 41h) and r rename ( funct ions 17h, 56h ) do 
their jobs by sending DELETE and RENAME requests respectively. 

rcreat (function 3ch), rcreattemp (function 5ah ) and 
rcreatnew (function 5bh) translate to GREAT, CREATTEMP and 
CREATNEW requests respectively. 

Strictly speaking, rseek (function 42h) does not have to 
contact the server since the file pointer position is maintained, 
and can be updated, locally. However when the position specified 
is with respect to the end of the file, the current length of the 
file must be obtained through an FLEN request. 



ii. Directory requests (rdrq.c) 

The cur_dir table in this module contains the current 
directory corresponding to each drive . 

Function 47h (get current directory) is handled locally by 
rgetdir, which copies out the appropriate entry from the cur_dir 
table into the caller’s buffer. 

rchdir (function 3bh) first checks if the directory exists 
and the user is permitted to change to it by sending a CHDIR 
request to the server. On success, the portion of the path after 
the map field is copied into the cur_dir table. 

Functions 39h and 3ah are handled by rmkdir and rrmdir 
respectively through MKDIR/RMDIR requests. 

iii. Search requests (rsrq.c) 

rsearch handles the functions 4eh (search for first match) 
and 4fh (search for next match) through SEARCHF and SEARCHN 
requests respectively. SEARCHN must be accompanied by the search 
information from the previous search request since the server is 
stateless . 

For efficiency, these calls are buffered, i.e. the reply to 
a SEARCHF/SEARCHN request will contain search information about 
more than one matching file (if there are any). The limit is set 
by the maximum amount of data a reply message can hold (FMAXDAT = 
143 currently). Since the DOS search information is a 43-byte 
structure, this means that information about 3 files can be 
contained in a reply. Thus the redirector has to contact the 
server only on every third search call it receives. 
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For a function 4eh call, the complete path is sent in a 
SEARCHF request. The extra field of the reply header contains the 
number of matching files returned, rsearch copies the first of 
them into the current DTA and the remaining into its local buffer 
sbuf. The next 4fh calls are satisfied by copying out the 
information from sbuf until it becomes empty. When this happens a 
SEARCHN request is sent and the buffer filled again. 

rfcbsearch works on the same lines for the FCB search calls 
11h and 12h. The main difference is that the return information 
expected by the caller is in a different format. Instead of 
directly copying out the information rfcbsearch calls xlate to 
parse it into the fields of an unopened FCB in the DTA. 

iv. Miscellaneous requests (rmrq.c) 

Handlers for the utilities are defined in this module, 
rutils, called by the multiplex interrupt handler, invokes 
the appropriate handler through a call table util_hndlr. The 
user/group/directory information/maintenance calls are handled by 
rinfo which passes them onto the server and returns the reply. 
For these calls, the user/group no. is expected in CX and DS:DX 
points to the buffer- The MAP calls are handled locally by rmap 
(Sec 3.E.6). 

The LOGIN call is handled by login. It expects the server’s 
internet address in SisDI, the user no. in CX and a pointer to 
the password in DSjDX- After initializing the driver (dev_init), 
it attempts to login through a call to rlogin. On success it sets 
the log flag and initializes the n_drvs and cur_drv variables. It 
then activates the redirector by pointing the int 21h vector to 



the redirector interrupt handler rint. The original int S1h 
vector is saved as the vector for int 62h. 


rlogin saves the user number in uno and sends 
request to the server. On success the user id returned 
server is saved in uid for future communications. 

logoff sends a LOGOFF request through rlogoff and 
off the redirector by restoring the int S1 vector, 
clears the log flag and shuts down the driver. 
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3.3 The driver 


Before looking al the actual driver some of its support 
routines and data structures must be explained. 

3.3.1 Buffer management (buf.c) 

This module maintains a pool of buffers into which incoming 
packets are read, allocp returns a pointer to a free buffer from 
the pool after marking it RESERVED, or NULL if no free buffers 

are available. When the buffer is no longer needed freep must be 

called to release it by marking it FREE. 

3.3.2 Queue management (q.c) 

A queue is simply a linked list of buffers, with pointers to 
the head and the tail, enque adds a packet to the tail of a queue 
while deque removes the packet at the head and returns a pointer 
to it, or NULL if the queue is empty. 

3.3.3 Port management (port.c) 

Incoming packets found to be OK are queued at the port 

specified in its UDP header. A port consists of a buffer queue 

and a flag indicating the port status (FREE or RESERVED). 

A port is opened by a call to popen, specifying the required 
port number (in the range 1 - NPORTS) or -1 to get the first 
available port. popen returns -1 if the allocation cannot be 
made, pclose clears all waiting packets at the specified port and 
closes it. 

A packet is sent to a port by a call to psend, which enques 
it. precv deques a packet from its queue and returns a pointer to 



it. If there are no packets it retries NTRIES times before giving 
up and returning NULL. 

3.3.4 The PC-LAN interface (pclan.asm) 

This module contains the routines used by the driver to 
interface with the PC-LAN IMP card, details of which can be found 
in the appendix. 

netout accepts a pointer to a packet with the dest, type and 
len fields properly filled in and writes it to the IMP card. It 
returns 0 for success, or 1 if the transmit buffers were full and 
the packet could not be sent. 

Reception of packets is handled in the background by the 
IRQ2 interrupt routine netin. On receiving the first byte of a 
new packet it calls allocp to get a free buffer, into which it 
reads each byte of the packet. The complete packet is forwarded 
to demux. If the packet is rejected for some reason demux returns 
1, in which case its buffer is freed by a call to freep. 

3.3.5 udp.c, ip.c, net.c 

A UDP datagram is sent by copying the data into a packet 
buffer and passing it to udpsend along with its length and a 
pointer to a UDPCONN structure containing the foreign internet 
address, the foreign port no. and the local port no. udpsend 
fills in the UDP header of the packet, calculates its checksum 
and forwards it to ipsend, which in turn fills in its IP header 
and calculates its checksum and passes it to send, send sets the 
dest and len fields of the PC-LAN header appropriately and sends 
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the packet through netout. 

When a packet is received it is passed on to demux, which 
checks the len and type fields of the PC-LAN header. Packets of 
non-zero length and type IP are forwarded to ipdemux and others 
are rejected, ipdemux checks to see if the received length of the 
packet matches the length as specified in its IP header and 
verifies the checksum of the IP header. UDP datagrams are passed 
on to udpdemux, which verifies its length and checksum and sends 
it to the port specified in its UDP header by calling psend. 

3.3.6 The device driver ( netdrvr .asm) 

The driver is an installable character mode device driver 
(NET). It needs the OPEN/CLOSE and lOCTL calls and so must be 
used with MS-DOS version 3.00 or higher. All i/o is done by 
passing a pointer to a control block s 
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hold incoming message 

Note 

that 

since 

the control 

block uses foreign and local 


specifications instead of destination and source, a process can 
send a reply to a message without having to exchange any source 
and destination fields. 

i- OPEN/CLOSE calls 

The open and close routines ensure that as long as the 
driver is open, the IRQE vector points to the packet receive 



routine nelin and the IRQ2 mask bit in the interrupt mask 
register of the 8259A is clear, thus enabling packet reception. 

i i . lOCTL calls 

lOCTL calls with a pointer to the control block are used to 
open and close ports on the device. A read call opens the port 
specified in the Iport field. Iport is set to -1 if the port 
could not be opened. If any port is acceptable Iport should be 
set to -1 before making the call. In that case Iport contains the 
number of the opened port on return. A write call closes the 
specified port. 

iii. READ/WRITE calls 

read calls precv with the local port specified in the 
control block. If it receives a pointer to a waiting packet, it 
extracts the length of the data, the foreign internet address and 
the foreign port number out of it. The foreign address and port 
no. are transferred to the control block while the data itself is 
copied out to the specified buffer. The buffer holding the packet 
is then released by calling freep. On the other hand, if the call 
to precv times out, read returns 0. 

write first checks the length of the message to make sure 
that it is not greater than UMAXDAT. The data is then copied into 
an internal packet buffer and sent by calling udpsend, specifying 
the foreign address, foreign port and local port. If the ack flag 
is set, the local port is cleared and read called to receive the 
reply. 

If this call to read times out, a NOT READY error is 
returned to DOS, which invokes the critical error handler, 
resulting in the familiar 'Abort, Retry, Ignore?* prompt. 



3.4 The utilities 


S'fe 

All the utility calls are menu-driven to make life easier 
for the programmer (since this approach makes it simpler to make 
modifications and eliminates the need for error checking on the 
input) as well as the user (since it saves a lot of typing and he 

does not have to memorize separate commands and parameters for 

each utility). 

All the work involved in setting up and managing windows for 

each menu is done by the function win which accepts a pointer to 

a WINSPEC structure physically defining the window, 
typedef struct 

{ char -fttitle; /* title to be displayed */ 

int rows; /■» no. of rows •»/ 

int cols; /# no. of columns */ 

int type; /* type of window •»■/ 

OPTIONS *o; /* pointer to options */ 

> WINSPEC; 

The o field points to an array of OPTIONS structures, which 
specify the options to be displayed in the menu and the functions 
that handle them. 

typedef struct 

{ char #text; /■»■ name of this option */ 

void (*func) (); /* handler for the option »/ 

void -^par; /* pointer to a parameter */ 

} OPTIONS; 

win sets up the window as specified. For a MENU type window 
it displays the options and allows the user to run through them 
with the up and down cursor keys. When an option is selected with 
the ’enter’ key its corresponding handler is invoked. This 
handler could simply do something and return, but it could also 
call win with its own WINSPEC and OPTIONS, thus creating a 
submenu. A window of type MESSAGE displays a message and waits 
while an INPUT window prints a prompt and waits for string input. 
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Pressing the 'esc' key exits a window. 

getstring opens a window, displays its first argument string 
and reads input into its second argument string, msg displays a 
message in a window with a title. These functions actually 
translate to appropriate calls to win and are convenient for user 
interact ion . 

The above three functions are extensively used by the 
utilities. The end handlers for the options do their jobs by 
calls to the redirector through int 2fh, specifying the command 
and the relevant parameters. Only the superuser has access to all 
the options; an ordinary user is shown only those options that he 
is permitted to use. 
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CONCLUSIONS 

The system as described in this report has been successfully 
implemented with a PC— XT with a 20 MB hard disk used as the 
server and client software running on another PC connected to the 
PC-LAN. In addition to the COMMAND.COM shell and various DOS 
commands dealing with file access, several application programs 
and miscellaneous utilities were run on the client PC and were 
found to be working satisfactorily with no major difficulties in 
accessing the remote file system. 

The overall file transfer rate is around 4 Kbps (measured 
for the DOS TYPE command). The low transfer rate is partly due to 
the software overhead incurred at the client and server ends, and 
partly due to the low maximum data rate <192 Kbps) of the present 
hardware and the small packet length (255 bytes) used currently. 
Owing to the limitation imposed by the packet length, even small 
files have to be broken up into several smaller sections to be 
transferred separately, thus significantly increasing the total 
overhead . 

Scope for future work 

i. In the present implementation, it is possible to have more 
than one server running independently on different machines. But 
the redirector does not allow a user to login to more than one 
server at a time. This restriction could be removed, providing 
for greater flexibility and better and more efficient resource 
sharing. 



ii. The idea of a remote file system could be extended into a 
network file systerri, by allowing the server to honor requests for 
files which may not be on its own file systeiri, but on any other 
PC on the network. The resulting system would provide complete 
transparency and convenience, with a user being able to access 
files anywhere on the network as easily as accessing his local 
disk. This could be done by the modification of the server to 
allow it to send requests itself (in addition to waiting for 
requests from clients and sending replies) and the introduction 
of a background routine on all client PCs, that gets activated by 
a request froiri the server for a file access. However this routine 
would have to take care not to re-enter DOS when making its 
systefTi calls. This is one application where the provision on the 
driver for multiple ports could come in useful. 

iii. The server could be made more rugged and reliable by making 
it f aul t— to le rant and by having it make automatic backups or 
replicates of files to guard against loss due to accidental 
destruct ion . 

iv. The redirector could be modified to do local buffering of 
data for files opened in an exclusive (non-shareable) mode. 

V. Instead of relying on MS-DOS, the server could be triodified 
to run in an enhanced multitasking environment like XENIX, 
providing more sophisticated features and better resource 
management. 
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THE IIT-K PC-LAN 

This section provides a brief introduction to the IIT-K 
PC-LAN from a user's point of view. More information can be 
obtained from the references C13 and C2D. 

A.1 Topology and connections 

The IIT-K PC-LAN is a token ring Ian supporting upto 
255 nodes. The ring is unidirectional and currently operates at 
192 Kbaud with twisted wire as the physical medium. 

One of the nodes is designated as the primary node, some of 
its special functions being to initiate token circulation at 
power-on, to reintroduce the token in case of failure and to 
remove circulating packets. All other nodes are secondary nodes 
and are connected to the network through cluster modules. 

A cluster module can supp<ort a maximum of 4 PCs. Its 
function is to isolate the PCs from the network so that 
individual stations can arbitrarily come up or go down without 
affecting the activity on the network. This is achieved by the 
opto-couplers and multiplexing logic on each cluster module, 
which automatically bypass a node when the PC is off. The 
interface between a PC and a cluster module is through an 
Interface Message Processor (IMP) card which fits into one of the 
expansion slots on the PC. The cluster module connects to the 
ring through balanced current drivers/receivers (75110/75108). 



A. 2 Packet flow 
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The host PC writes the packet to be transmitted to its IMP 
card which stores it in one of two transmit buffers. When the node 
has successfully captured the circulating token, it transmits all 
pending packets and then forwards the token. A transmitted packet 
first reaches the primary node, which puts it into a repeat 
buffer and sends it forward. When the packet comes to the primary 
again, it is removed from the ring. The destination node receives 
the packet only when it is relayed by the primary in this manner. 
Packets which are not addressed to it and packets which are on 
their first trip to the primary are simply passed on. Upon 
receiving a valid packet, the destination node sends an 

acknowledgment to the source node. 

A. 3 Frame structure 

The following is the frame structure used by the Ian s 

+ (. 

! STX I DEBT ! CTRL I SRC 1 TYPE ! LEN1 I LENS I --DATA — I ETX ! 
+ 1 - 

The SRC and DEBT fields are 8-bit node addresses. The 
address OOh is reserved for the primary node, while Offh is used 
for broadcast packets. Thus the secondary nodes can have 

addresses between 01h and Ofeh. 

The CTRL field carries control information. Individual bits 
indicate whether the packet is going from the src to the primary 
or from the primary to the destination; whether the packet is a 
data packet or an acknowledge packet, etc. 







The TYPE field provides information about the typte of data 
that the packet contains. This will be of use to higher level 
protocols. 

The LEN1,LEN2 fields contain the length of the data. (LEN1 
is the higher byte.) In the current implementation LEN1 is always 
0 since the maximum packet length sup>ported is 253 bytes. 

A. 4 The IMP card and the host interface 

The IMP card contains a CPU (8088), a MUART (8256), memory 
for the firmware and buffers, I/O ports for the PC interface and 
associated logic. Transmission of a packet by the PC is done in 
polled mode, while reception is in interrupt mode. 

The lowest 3 layers of network protocol, viz. the 
phys i cal , data link and network layers, are implemented on the IMP 
card. A simple stop 4 wait protocol is used for packet 
transmission : if the acknowledgment to a transmitted packet 
does not arrive in a fixed time, it is retransmitted. The 
hardware also takes care of parity generation and checking. 

The IMP card uses 2 addresses in the I/O map of the host PC 

340h - Data I/O port 

348h - Control register (write) 

- Status register (read) 

Control and status register bits : 

Bit 15 : TXBF - Transmit Buffer Full 

Bit 14 : SPECL - Byte ready at data port is Special 

Bit 13 : EXPB - Expecting the first byte of a packet 

Bit 12 5 IBE - Input buffer empty; ready to accept 

next byte 

Bit 1 ! PCMD - Treat the following bytes as commands 

rather than as data 



Valid comnrtands ! 




Request to send 
Reset 

Clear transmit buffer 
Clear receive buffer 

Before writing a packet to the card, the host PC must make 
sure that the card has an empty transmit buffer to hold the 
packet. This is done by checking the TXBF bit in the status 
register. If this is clear the host proceeds to write the actual 
command byte RTS (Request To Send) to the data port (by 
manipulating the PCMD bit in the control register). The card then 
responds by setting the EXPB bit in the status register, which 
indicates that it is ready to accept a packet from the host. 
Following this, the host writes the packet to the card in the 
order : 

BEST, TYPE, LENE, data 

Before writing each byte, the host must wait till the IBE 
bit in the status register is set, indicating that the card is 
ready to accept the next byte. 

The host receives a packet from the card in interrupt mode. 
The card generates an interrupt on the IRQE line for each byte of 
the packet. The interrupt service routine has to read a byte from 
the card and send an EDI to the 8H59A interrupt controller. The 
packet is delivered in the following order : 

NEW, BEST, CTRL, SRC, TYPE, LEN1, LENS, data 

The first byte is a special byte indicating that a new 


packet has been received. 
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NOTES 

B.1 Initializing the server file system 

The server expects the use r /group/di recto ry information to 
be available in the files USR.INF, GRP. INF and DIR. INF 
respectively. When installing the server these files must be 
created by running the program BUILDINF.EXE from the drive that 
is to contain the server file system. (Other drives can be 
included by JOINing them to this one). 

The DIR. INF so created contains entries for all the existing 
directories on the drive. All of them are assumed to be owned by 
the superuser (user no.O); the ’rights’, 'groups' and 'ispublic' 
fields are set to deny access to all other users. 

USR.INF will contain just one user, the SUPERUSER, with no 
password and full rights. GRP. INF wii be initially empty. 

Once the server is running (Sec. B.2), the superuser can 
login and use the appropriate options in the utilities to set his 
password and to add users and groups. When a new user is added, a 
directory of the same name (and owned by him) is created in the 
root. The user’s rights and password must be set separately. 
Removing a user does not automatically remove his 


files/directories. 



B.2 


Setting up the server 


The server program is in the file FS.EXE. Before running it, 
however, the following things have to be done t 

i. The PC-LAN card must be properly installed. 

ii. The driver NETDRVR.SYS must be installed, specifying the 
server internet address as parameter. 

iii. The maximum number of handles must have been set at 20 by 
the 'FILES = ’ line in CONFIG.SYS. 

iv. The USR.INF, GRP. INF and DIR. INF files must be present in 
the current directory. 

V. The DOS file sharing support module (SHARE. EXE) must be 

1 oaded . 

When the server is ready to process requests it displays the 
message 'Ready....'. Commands can be entered by pressing the 
'Esc' key and waiting for the server to respond with a '?' 
prompt. The following commands are supported currently s 

'S' - Shutdown the server (asks for confirmation) 

'C - print details about the status of the Cache 
'F* — Force closure of a file in the cache 

B.3 Accessing the server 

Logging in, defining network drives and logging out are all 
accomplished through the utilities (U.COM). Before attempting to 
log in, 

i. The PC-LAN card must be installed. 

ii. The driver NETDRVR.SYS must be installed, specifying the 
internet address of the local PC as parameter. 



iii. The LASTDRIVE must have been set appropriately (through the 
'LASTDRIVE = * line in CONFIG.SYS). Only drives beyond the 
LASTDRIVE can be defined as network drives. Thus if the LASTDRIVE 
is set to ’ Z ’ , files on the server cannot be accessed. 

iv. The redirector (RDR.COM) must be installed. (This could be 
included in the AUTOEXEC.BAT file for convenience). 

B.4 Modifying and compiling 

All the code for the system was developed using the 
Turbo C compiler (version 2.0) and the Turbo assembler (version 
1.0). The source listing appears in Appendix C. The listing is 
not complete; some of the utility routines have been excluded due 
to shortage of space. The full source code is available at the 
MDS Lab, ACES, IIT Kanpur. 

The source files relating to the server, the 
redirector, the utilities and the driver must be in separate 
directories (not necessarily in the root) ! FS, RDR, U and 
NETDRVR respectively. All the dependencies are declared in the 
corresponding MAKEFILES. 

The redirector and the driver must be compiled in 
the ’tiny’ model of Turboc and converted to .COM files. 

When modifying the redirector it must be remembered that 
since it is a memory-resident program, the data and stack 
segments will not be the same when it receives control. But the 
compiler assumes that DS = SS. Thus when accessing a stack 
variable (automatic variables and parameters) through a pointer, 
a segment override (SS!) must be used. In Turbo C this can be 



done by declaring the pointer to be an ’_ss instead of a 
normal This problem does not arise in the driver because it 
uses stack-switching, which ensures that SS = DS. The redirector 
cannot use stack-switching because of function 4bh (EXEC) which 
requires the code to be re-entrant. The safest way to handle the 
problem is to put all such variables (those that will be accessed 
through pointers) in the data segment, by declaring them 


stat i c * 
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/* f$.h - the server handler furiction declarations */ 


•include "..\rdr\freq.h" 

!* handlers corresponding to codes in ’freq.h’ ♦/ 

•define FSHfflLRS fsread,\ 

fswrile,\ 

fsopen,\ 

fsunlinkA 

fsrenaoeA 

fschdir,\ 

fstkdirA 

fsrodirA 

fssearchA 

fssearchA 

fscreat,\ 

fscreattetpA 

fscreatneuA 

fskodA 

fs«id,\ 

fsdtA 

fsdtA 

fsflenA 

fscloseA 

fsspaceA 

fslock,\ 

fsunlockA 

fsinfo 


/* fac.h - declarations for access checking functions */ 


•include Ardr\freg.h" 


/* The files used to save user/group/directory inforiation »/ 
•define USRFILE "usr.inf" 

•define GRPFILE "grp, inf 

•define DIRFM "dir.inf" 


/• SOM lilits •/ 
•define mXUNAH 8 
•define WiXUSERS 8 
•define HAXffiOUPS 8 
•define IHXUGR 8 
•define HAXGRH 11 


/♦ naxinun length of a user/group nate 
/* no. of users */ 
li no. of groups */ 

/* no. of groups a user can allow to access a directory */ 
/« no. of aenbers in a group *l 


•define L51ZE 256 
•define EMPTY Oxffff 
•define HSIZE 101 


/* size of log table *l 
I* no user/group «/ 

/< hash table size •/ 


typedef unsigned int a_int; 




/f Ihe user/group/di rectory table entry structures */ 
typedef struct user 
{ 


char naM OMXUNAHD; 
char pwd CmXUNAH]; 
u_int rights; 
u_int sen; 
int tncl; 
int free; 

u int reserved C4D; 

} USER; 

typedef struct group 
{ 


/♦ starting cluster no. of user's 'hoie' directory «/ 
/* total no. of clusters allocated to user ♦/ 

/* total no. of free clusters ♦/ 

/* just to round off */ 


char Rate CHAXUNMj; 
u int rights; 
ujnt teas DttXGRM]; 

) GROUP; 


typedef struct dir 
{ 

char nate C40]; 
u_int owner; 
u_int ispublic; 
o_int rights; 

u_int groups CNAXUGRO; H groups allowed access to this directory *! 

struct dir onext; 

} DIR; 

struct req /< infortation about current request */ 

{ u_int URo; /• user taking the request *! 

DIR *dirp; /* directory being accessed */ 

}; 


/* bits in user/group/directory rights 


idefine 

R NOfC 

0x0000 

idefine 

R flL 

OxOOff 

idefine 

R READ 

0x0080 

idefine 

R WRITE 0x0040 

idefine 

R OPEN 

0x0020 

idefine 

R_(31EAT 0x0010 

idefine 

R DEL 

0x0008 

idefine 

r’srch 

0x0004 

idefine 

r“mod 

0x0002 

idefine 

R PAR 

0x0001 


Idefine user_ha5_rigbt(uno,r) 
Idefine group_has_right(po,r) 
idefine dir_right_defined(dirp,r) 
idefine issup(uno) 
idefine isself(u) 
idefine iso«ner(ttna,dirp) 


((utab [onoLrigbts i (r)) = (rl) 
(tgtab Cgnol. rights 4 (rl) = (r)) 
(({dirp)->rights 4 (r)) - (r)) 
((uno) = 0) 

((u) = req.uno) 

((dirp)->ewner = (uno)) 



u_int hash (char *s); 

ini access_chk (char *na«, u_int uid, u_int op); 

ini isMtber (u_inl gno, u_inl uno); 

ini fslogin (FIffiG op); 

ini fslogoul (FREQ op); 

char *lab_inil (void); 

DIR ofacikdir (char anasr); 
ini facrwiir (char onaM); 

USER ♦gelusrenlry (u_inl uno); 


f* fch.h - deciaralions for Ihe server file cache */ 

iinclude "..XrdrXfreq.h" 

lypedef slrucl fileinfo 
{ 

char nafte [HAKNANLENl; 
ini hndl; 
unsigned tino; 
ini Mde; 
long pos; 
ini lock; 

slrucl fileinfo *nexl; 
slrucl fileinfo »prev; 

} CJILE; 

tdefine HEAD f cache 
•define NEUEST lEAD->prtv 
•define OLDEST HEAD->Bexl 

/» the size of Ihe cache */ 

•define HAXOFILES 8 

•define isopen(p) ((p)->hndl >= 0) 
f-‘«fine islockfd(p) ((p)->lock) 

•defini <hared(»ode) (((Mde) • 0x70) != 0) 

/* convert the a^.'^ss mJ' DOS foriat lo the one used in Turbo C */ 
•define cnvrl(Mde) ».:^ab[(Mde) J 0x33) ! ((Mde) 8 "DxS)) 

•define READHODE (O_R00M.¥ ! OJDMn, 

•define URITEHDDE (0 URONLy ! 0_RDMR) 

•define (WYHDDE (OJDOHY I 0_HR(]I1Y ! 0_RDi«!) 

extern int ctabC3; /* look-up table for cnvrtO */ 

char ♦cache_init (void); 

CJILE * c_open (char *na«,int Mde, unsigned uno); 

int c_read (CJILE »p, void *data, ini n); 

int c write (C FILE *p, void *data, int n); 

ini ciclose (CJILE *p); 

ini c_seek (CjFILE «p, long pos); 

void uncache (char tnaae, unsigned uno); 


I* the cache entry */ 


/* handle *l 

/• user who accessed it */ 
/* access adoe */ 

/♦ file pointer position »/ 
/f no. of locks */ 


int purge (char (nau); 
void printcache (void); 


/« ds.h - declarations associated with disk space «/ 

struct boot 
{ 

unsigned char jtp C33; 
unsigned char oet_naM C8]; 
unsigned int bps; 
unsigned char spc; 
unsigned int nrs; 
unsigned char ncf; 
unsigned int nerd; 
unsigned int tns; 
unsigned char aedia_id; 
wsigned int spf; 
unsigned int spt; 
unsigned int nh; 
unsigned int nsrs; 
unsigned char resvd C482]; 

>; 

struct dp 
{ 

unsigned int tnrs; 
unsigned int bpc; 
unsigned char spc; 

)} 


typedef struct direntry 

{ 

unsigned char na»e CU, ext C3]; 
unsigned char attr; 
unsigned char resvd [103; 
unsigned tine, date; 

unsigned sc^no; /• starting cluster no. */ 

unsigned long size; 

> DIREMTRY; 

struct ufcb /* unopened FCB returned Iqr fns. 11h, 12h •/ 

{ unsigned char drive; 
struct direntry d; 

>; 

struct uxfcb /* unopened extended FCB *! 

{ 

char flag; 
char resydC53; 
char attr; 
struct ufcb ufcb; 

i f 


/* disk paratelers */ 

/♦ total no. of reserved sectors */ 
/* bytes per cluster */ 

/* sectors per cluster a/ 
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fdefiM NEHTRIES 32 

idefine BYTES_P£R_SECTOR 512 

•define RFSIZE (NENTRIES * sizeof (DIREMIRY)) 

•define NSECT (KJFSIZE / ByTES_PER_SECTOR) 


•define invalid(ep) ( ♦ep->n»e = 0xe5 !! «ep->naie = ) 

•define isfile(ep) { (ep->atlr i 0x18) = 0 ) 

•define isdir(ep) ( ep->aUr t 0x10 ) 

/♦ convert size in bytes to clusters */ 

•define tocl(bytes) ( (unsigned) ((bytes)/d.bpc + ( ((bytes) ( (d.bpc - 1))? 1:0))) 
/♦ convert cluster no. to LSN »/ 

•define tolsn(sc_no) ( ((sc_no) - 2) * d.spc + d.tnrs ) 


/♦ fsio.h - driver interface declarations */ 

•define PORT 0 /» driver port to be used */ 

char *dev_init (int port); 

FREG *getreq (void); 

void reply (FREQ »p, int len); 


/• fsp.h - disk space function declarations •/ 

unsigned getscn (char <dir); 
int fsspace (FICQ *p); 
int guota_chk (unsigned uno); 
void getdp (void); 


/* fserrno.h - special error codes for the server »/ 


/• note: all these codes are negative, for easy integration with the DOS error 


enua sys err ops 
{ EGTfffiFOLL » -8, 
EJKUSERDIR, 
EUTABFULL, 
EQUOTA, 


ft cannot add group : Group table full •/ 

/♦ unable to nake directory for new user */ 
ft cannot add user : User table full */ 
ft Disk quota exceeded */ 


EDRV, 


ft Invalid drive *f 


EPORT, 

EltOGGED, 

EU)GGED, 

OK 


ft Unable to open driver port ♦/ 
ft Not logged in ♦/ 
ft already logged in */ 
ft = EZERO = 0; no error tf 


codes tf 


h 


ft fs.c - server nain prograa ♦/ 

•include <stdio.h> 

•include <stdlib.h> 



iinclude <conio.h> 

•include <ctype.h> 

•include <l)ios.h> 

•include <dos.h) 

•include "fs.h" 

•include “fac.r 
•include “fch.h" 

•include "fsio.h" 

•include "..\rdr\bio.h" 

•define ESC Oxlb 

char efsinit (void); 
void check_CKls (void); 
int ctrlbrk_hndlr (void); 
int barderr_hndlr (void); 

»ain 0 
{ 

sialic ini (»reqhndlr[3) (FREO ep) = 
{ 

FSHNDLRS 

}; 


regisler FREQ *p; 
register unsigned op; 
ini code; 
char *s; 

if ((s = fsinil 0) != NliL) /* initialization */ 

{ puts (s); 
return 1; 

} 

trhile ((p = getreq 0) != NULL) f* wail for a request ♦/ 

{ 

op = p->hdr.code; 

/« check access and pass on to appropriate handler </ 

p->hdr.code = ((code * access_chk (p-Midr.naw, p->hdr.id, op)) != 0)? code 
! (ereqhndlr Cop < (fflLS? op ! (/TILS]) (p); 

/« send reply */ 

reply (p, (p-Midr.code)? FHDRLEN s (FlfflRLEN + p->hdr.len)); 

} 

} 


char ofsinit (void) 

{ 

char *s; 

if ((s = devjnit (PORT)) != HAL /* initialize driver «/ 

!! (s = tabjnit 0) != NULL /♦ user/group/dir tables */ 



1 1 
1 1 


/» cache */ 


(s = cachejnit {)) != NULL) 
return sj 

/« setverify (Dr*/ 

setcbrk (0); /* disable control-break checking */ 

ctrlbrk (ctrlbrk_hndlr)r /* control-break and */ 

harderr (harderrjndlr); /* critical error handlers ♦/ 

puts (Heady...."); 
return NULL; 

} 


int ctrlbrk_hndlr (void) 

{ 

return 1; /« no action on control-break */ 

} 


int harderr hndlr (void) 

{ 

hardresuH (3); /* fail systet call on critical error */ 

} 


void check cads (void) 

{ 

register int key; 
static int esc = 0; 
char sCHAtNANLOQ; 

irhile (bioskey (1) != 0) 

{ 

if ((key = getch 0) = ESC) 

{ cputs ("\n\r?"); 
esc = 1; 
continue; 

} 

if (!esc) 

continue; 

suitch (putch (toupper (key))) 

{ 

case ’S' I cputs ("\n\rShutdowi? *); 

if (toupper (getche 0) = 'Y') 
exit (0); 

break; 

case ’C’ ! cputs ("\n\rCache Status !”); 
print cache 0; 
break; 

case 'F' s cputs (" s File to close ? "); 

if (*gets (s) ii purge (s) i= 0) 



tpuU ("File not found"); 


} 


) 


break; 


dtfaull 


} 


cpuls (" ! Unknown connand"); 
break; 


cpuls ("\n\rReady....\n\r"); 
esc = 0; 


/♦ fac.c - access control *J 

tinclude <sldio.h> 
linclude <sldlib.h> 
tinclude <errno.h> 

•include <slring.h> 
linclude <dos.h> 
linclude <dir.h> 
linclude "..\rdr\freq.h" 
linclude “fserrno.h" 
linclude "fac.h" 
linclude "fsp.h" 

t* decode user id lo get user no.*/ 


•define 

user(uid) 

(»{u_int *)(uid)) 

♦define 

IMIT 

D 

•define 

UPDATE 

t 

•define 

SAVE 

2 


DIR *getdir (char ♦naae, int isdir); 
char *otab_i8 (int op, u_int ono); 
char «glab_io (int op, u_int ^o); 
char *dtab_io (int op); 
void update (void); 

/♦ the user, group, directory table pointers, space for then is allocated at run-tine «/ 
static USER *utab; 
static (jROUP *glab; 
static DIR **dtab; 

static u_inl *logtab; 

/♦ rights for each code defined in 'freq.h' ♦/ 
static u int rtab Cl = 

{ 

R READ, 

R HRITE, 

R OPEN, 

R.DEL, 

R.DEL, 

R_N(3NE, 


/* REMfllC »/ 



R PAR, 

R PAR, 
R_SRCH. 
R SRCH, 

r'okat, 

R_CREAT, 
R_CREAT, 
R_N0NE. 
R NOC, 

R NOC, 
R_teNE, 
R_M0NE. 
R_MDNE, 
R NONE, 
R_NDNE, 
R_N0NE, 
R^NDNE, 

R NONE 


/* info about the user uking the request and the directory being accessed */ 
struct req req; 

/* the Min access checking routine */ 

int access chk (char tnwe, u int uid, u int of) 

{ “ 

u_int og; 

register WR 

/« right required for the requested operation */ 

register tt_int r « op >= UTILS? R_NQHE : rtabCop]; 

rtq.uno = EMPTY; 

req.dirp = NULL; 

if top UTILS + LOGIN} /* LOGIN is free for all ♦/ 

return OK; 

if ((req. two *= user (uid)} == EMPTY) /» check if user has logged in all right */ 
return EACCES; 

if (!user_ha 5 _right (req.uno,r)} /♦ check user rights */ 

return EACCES; 

if («iMflie »= '\0'} /* no file/dir nate oentioned »/ 

return OK; 

if ((req.dirp * p = getdir (strupr (naM},(op = (MIIR !1 op >= UTILS))} = tWLL) 
return EWOPATH; /* check if directory is know to server */ 

if (issup (req. too) 1! isower (req.mo, p)) 

retuni OK; f* superuser and otmer are allowed access »/ 


if <!dir_right_defined (p,r)) 

return EACCES; /« for others, the dir. right iust be set */ 

if (p->ispublic) 

return OK; /* anyone can access a public dir. ♦/ 

/♦ check if access can be allowed by virtue of group mbership ♦/ 
for (g = p->9roup5; g < 4p->groupsCNAXlK3RD; 9++) 
if {*g != EJPTY 4t group_has_right (og, r) 

U isteaber (fg, reg.uno)) 
return OK; 


return EACCES; /* all cases exhausted, deny access */ 


) 


/* return a pointer to entry in the dir. info table */ 
static DIR ogetdir (register char tnaae, int isdir) 

{ 

char «s = NHL; 
register DIR ep; 

/♦ if the na»e refers to a file, get the parent directory */ 
if (lisdir W (s * strrchr (naae,'\\')) \- NULL) 

*s * '\0'; 

if (s *= nae) 

Due = “W"; /* the root! »/ 

/* index into the hash table and search the linked list */ 
for (p = dtab [hash (na»e)3; p != NULL; p = p->«ext) 
if (strcap (p->naae,naBe) = 0) 
break; 

if (s) 

*s = ’W; 
return p; 

} 


/♦ check if user ’uno’ is a teaber of group 'gno' */ 
int isaeaher (u int po, u int uno) 

{ 

register GROU’ *g - &gtahCgno]; 
register ujnt «a; 

if (♦g->naae ** ’\0’) 
return 0; 

for (a = 9->aeas; a < 4g->aeasCHAXGR(0; a++) 
if (*a = uno) 

return 1; 


} 


return 0; 


/« the tush function for the dir. table search */ 
u_int hash (register char «s) 

r 

register u_int n = 0; 

sdiile (*s} 

n += «s+4; 

return (n Z HSIZE); 

} 


/* server login */ 
int fslogin (FRES ep) 

{ 

int i; 

ujnt imo = p->hdr.|Hr1; 

/* check if user is legal »/ 

if (uno > MAXUSERS I! ♦utabEuno].na« = ’\0’ 

!! strap (p->hdr.naie, utab Cuno].pvd) != 0) 
return BICCES; 

if (guota_chk (unol != 0) /♦ check if disk quota is OK a/ 

return EQUOTA; 

/» allocate a randM entry in logtab </ 

while (logtab C(i *= randon (LSIZEl)] != EMPTY) 

« 

I 

logtab CiT = uno; 

r>hdr.parl = (uJnt) dlogtab Ci3r /* return a pointer to it as the id */ 
return OK; 

} 


/♦ server logout «/ 
int fs logout (FFEQ tp) 

{ 

u_int uno; 

if ((uno “ user (p->hdr.id)) = EMPTY) 
return OK; 

if (quota_chk (uno) != 0) 
return EflUOTA; 

user (r>hdr.id) = OTTY; /* reset logtab entry */ 
return OK; 



I* initialize all the tables *l 
char «tab init (void! 

{ 

«_inl *1; 
char »s; 

/* allocate »e*ory for the* first ♦/ 

if ((dlab = (DIR «») calloc (HSIZE, sizeof (DIR ♦))) = NULL 
!! (loglab = (u_int *1 calloc (LSI2E, sizeof (int))) = NULL 
!! (Utah = (USER *1 calloc (WXUSERS, sizeof (USER))) = NULL 
I! (gtab = (GROW «) calloc OttXGROUPS, sizeof (GROUP))) = NULL) 
return ("Not enough aeiory*); 

for (1 = logtab; 1 < ilogtab asIZEI; 1+4) 
fl = Elf TY; 

/* fill thet up frot the corresponding files »/ 
if ((s = utabjo UNIT, 0)) f= NULL 
!! (s = gtabjo (INIT, 0)) i= NULL 
!! (s = dtabjo (INIT)) != NULL) 
return sj 

chdir ("\\">; /* ensure that the current dir. is the root «/ 

getdp (); /• read in disk paraaeters «/ 

return NlRlj 

} 


/» directory table aanager */ 
char »dtab io (int op) 

{ 

sUtic FILE »fp; 
static int changes = 0; 
register DIR «p; 
register int i; 

DIR «df 

switch (op) 

{ case INIT : if ((fp * fopen (DIRFILE, "r+b")) = ttJLL) 

return ("Unable to open dir. file"); 


for (;;) 

{ if ((p = (DIR *) lalloc (sizeof (DIR))) = NULL) 
return ("Not enogh aeiory"); 

/♦ read in an entry ♦/ if (fread ((void ♦) p, sizeof (DIR), 1, fp) = 0) 

break; 

/* insUll it in the table ♦/ r>ne*t = dtab Ci = hash (p->naM)]; 

dtab Ci] = p; 

} 

free (p); 

atexit (update); /* file *1*1 he updated on exit */ 



ktik’, 


case UPDATE : changes = 1j 
break; 

case SAVE : if fichanges) /* wile info back lo disk */ 

break; 

changes * 0; 

fseek <fp, 0, SEEK.SET); 

for (d = dlab; d < tdlabCHSIZET; d++) 

for (p = «d; p != HJLL; p = p->next) 

fmte (p, sizeof (DIR), 1, fp); 

break; 

} 

return NULi; 

} 


void update (void) 

{ 

dtab_io (SAt€); 

) 


/* user table lanager »/ 

char «utab_io (int op, u^int uno) 

{ 

static FILE #fp; 
switch (op) 

{ case INIT s if ((fp = fopen (USRFILE, "r+b")) = NULL) 

return ("Unable to open user file"); 

fread (ulab, sizeof (USER), WXUSERS, fp); 
break; 

case UPDATE : if (fseek (fp, uno * sizeof (USER), SEEK_SET) != 0 
it fwrile (dutabCunoT, sizeof (USER), 1, fp) != 1) 
printf ("Error updating user Zd", uno); 

break; 

> 

return IWLL; 

} 


/» group table MtMger ♦/ 

char tgtab io (int op, u int gne) 

{ 


static FILE tfp; 



stfilth iep) 

{ cast IHIT ! if ({fp = fopen (GRPFILE, "r+b")) =*= NULL) 

return ("Unable U open group file"); 

fread (gtab, sizeof (GROUP), HAXGROUPS, fp); 
break; 


cast UPDATE : if (fseek (fp, gno * sizeof (GROUP), SEEK_SET) != 0 
SI furite (igtabCgno], sizeof (GROUP), 1, fp) != 1) 
printf (trrof updating group W",gno); 

break; 


return NW.L; 


} 


/» take a neu entry in the dir. table *f 
DIR efacakdir (char *na»e) 

( 

register DIR ep; 
int i; 

register u_int *g; 

if {(p « (DIR ») Mlloc (sizeof (DIR))) =NULL) 
return MULL; 

strcpy (p->na«,nj»e); 

p-)oimef * reg.dirp->«iner; /* belongs to user owing the parent */ 

p->rights ® R_ALL; 
p->i5public = 0; 

for (g = p->§r«ips; g < ip->group5CNftXUGR]; g++) 

»g * EMPTY; 


p->next = dtab Ei = hash (na»e)3; /* install in table »/ 

dtab Ci] * p; 

dlab.io (UPDATE); /* update info */ 

return p; 


/* remove an entry frott the dir. table »/ 
int facradir (char >naae) 

{ 

int i s hash (nae); 
register DIR *d; 
register DIR *p * dtatbCiT; 

if {(d = geldir (naae, 1)) = MILL) 

return ENOPATH; /♦ no such entry */ 



if (p == <1) 

dlabCi] = d->nexlj 


the 

{ while <p != NULL M p->next != d) 

p = p->next; /» search the linked list */ 

if <p == NULL) 

return OllPATH; 

fr>next = d->next; /♦ remove frot list *l 

} 

free (d); 
dUb_i0 (UPDATE); 
return OK; 


/♦ return a pointer to a user’s info in the table *! 
USER egetusrentry (u_int uno) 

{ 

return tutabCunoD; 

} 


/♦ handler for QETl^INFO s return user table entry «/ 
int getusrinfo (FREQ tp) 

{ 

if (p->hdr.par1 >« NAXlBffiS) /♦ pari contains the user no. ♦/ 
return EIWFNC; 

if ( !(issup (reg.uno) !! isself {p->hdr.par1)) ) 
return EACCES; 

*( (USBl ♦)p->data ) = utabCp->hdr.par1]; 
p->hdr.len = sizeof (USER); 

return OK; 

} 

/* handler for SETUSRINFO ' update user table entry »/ 
int setusrinfo (FREQ *p) 

{ 

if (p->hdr.par1 > NAXUSERS) 
return EINVFNC; 

if (issup (reg.uno)} 

utabCp->hdr.par13 * ♦( (USER *) p->data); 
else if (isself (p->hdr.par1)) 

ietcpy {otabCp->hdr.par13.pwd ,((US£R *)p->data)->pwd, NAXUNAN) 

else 

return B)CCES; 


tttabjo (UPDATE, |r>hdr.par1); 



return OK; 


} 

/* handler tor QETGRPIMFO */ 
int getgrpinfo (FRE9 ♦[>) 

{ 

if (r>hilr.f«r1 >» mXSROUPS) 
retarn ElfMTK; 

if < !(issup (reg,®io} !! istetber {p->hdr.par1, req.uno)) ) 
return EficCEB; 

♦{(GROUP ♦) p->dala) = gtabCp->hdr.|»r1]; 
p->hdr.len = sizeof (GROUP); 

return OK; 

} 

/* handler for SETGRPINFO */ 
int selgrpinfo (FRE8 *p) 

{ 

if {p->hdr.pari >» HAXGROUPS) 
return EINVRC; 

if (lissup (reg.uno)) 
return EACCES; 

gtabCp->hdr.par13 * ♦((CROUP ♦) p->data); 

gtabjo (UPDATE, p->hdr.par1); 
return OK; 

} 


int getdirinfo (FIEQ ep) 

{ 

♦((DIR ♦) p->data) » *reg.dirp; 
p^>hdr.l#n ■ sizeof (DIR); 
return OK; 

} 


int setdirinfo (FREfl ♦p) 

{ 

if (issup (reg.uno)) 

♦reg.dirp * ♦((DIR ♦) p->data); 
else if (isowner (reg.imo, reg.dirp)) 

{ aeacpy (reg.dirp->groups, (IDIR ♦) p->data)->groups, NAXUffi); 
reg.dirp->ispublic = ((DIR ♦) p->data)->ispubiic; 
reg.dirp->rights = ((DIR ♦) p->data)->rights; 

} 

else 

return EAC(XS; 


dUb.io (UPDfilEJ; 
return OK; 

) 

/* handler for GETUSRLIST */ 
ini jetusrlisl (FREQ *p) 

{ 

register USER *u = utab; 

register char (en) DIAXUHAd] = (char {»)CNAXUNAM])p->data; 

while (u < &utal£mXUSERSO} 

»e«cpy (*n++, (ii++)->na»e, NAXUNAH); 

p->hilr.len = mXUSERS « IttXUNWI; 

return OK; 

) 

int getgrplist (Ff^Q *p) 

{ 

register GROUP «g » gtab; 

register char (*n) CMAXUNAM3 = (char (*)01AXUNAM])p->data; 

while (g < 4glabCNAXGROUPS3) 

Mftcpy (*n++, (g++)->na»e, MAXUNAH); 

p->hdr.len « HAXGROUPS « NAXUNAH; 

return OK; 

} 


int getugrps (F1£Q *p) 

{ 

u_int «d ® {u_int «)p->data; 

register int i; 

if (r>hdr.par1 >- HAXUSERS) 
return EINVFIC; 

if ( !(issup (req.uno) !! isself (p->hdr.par1)) ) 
return EACCES; 

for (i = 0; i < HAXUGR; i++> 

if (is«Hil»r (i, p->hdr.par1)) 

*d+4 j= i; 

*d++ = EHPTY; 

p->Mr.len » (char •)«! - p->dala; 

return OK; 

} 



/i handler for HKUSER s install a nr* user */ 
int »kus*r (FREi sp) 

{ 

register USER «a; 

DIR *d; 

register char »»eEHAXilWl + 13 = "W”; 
if (!(issup {req.ano))) 

return EACCES j /*only super user can do this */ 

for (u = Utah; u < tutatCMAXUSEKS]; u++) /a already exists */ 

if (slrctp (u->nate, strupr (p->dala)) = 0) 
return (p->hdr.par1 = u - utab, OK); 

for <u * Utah; u < 4utabEMAXUS£SS3 44 fu->naie; o++l 

V 

if (u >= 4utabCMAXUSERS3) /* find enpty user table entry »/ 

return ElflABRIli; 

strncpy <na»e + 1, r>data, IttXUNAM); 

if (ukdir (naire) <0 I! (d = facukdir (nane)) = (Wl) /Hake dir. for user »/ 

return EJKlmDIR; 

slrcpy (u->na»e, n»e + 1); 

«u->p*k 1 « '\0’f 
o->fights « R.NDNE; 

u->$cn « getscn (naae + 1); /♦ get starting cluster no. of dir. */ 

u->tncl ■ 1; 
u->free * 0; 

utab_io (UPDATE, (|r->hdr.par1 = d->ower = u - utab)); 
return OK; 

} 

/* handler for RHUSER */ 
int riuser (FREfl *p) 

{ 

if (!(issup (reg.tmo))) 
return MCES; 

if (r>hdr.par1 >« fftXUSERS) 
return EINVFNC; 

«utabC|h>hdr.par13,oaM * '\0'; /• erase user naue »/ 

utabjo (UPDATE, p->hdr.par1); 
return OK; 

} 


/* handler for NKGROUP */ 
int Ingroup (FRES tp) 

{ 

register GROUP «g; 
register u_int H; 


if (!(is$up (rtq.uno))) 
return I^CES; 

fer (9 • ftab; f ( 49t8M]KftXGR(]tPS3; 9 ++) /* group already exists /* 

if (strap (t->i»ai*, slrupr {p->data)) = 0 ) 
return (p-Htdr.parl = 9 - gtab, OK); 

for (9 = ftab; § < igtabCHAXGROUPSl it ♦g->n«ie; f++) 

if (g >= (tgtaKWftXGROtFSl) /* find eapty entry in table */ 

return EGTffflFWi; 

strcpy (9->iwi*e, p-Mata); 

g->ri9ht5 = R_IO€; 

for (a = 9->«#ts; • < t9->*et5Cf1AXGRH3| ir++> 

!•= ePW; 

gtabje (if DATE, (p-Hidr.pari = g - gtab)); 

return OK; 


/* handler for RNGROLf •/ 
int regroup (FREQ epl 
{ 

if <!(i$sap Creg.uno))) 
return EACCEB; 

if (r>bdr.par1 >» KftX(»0UPS) 
return OMVFMC; 

*gtabCf>->tedr.par13.naaM * '\0'; 
flabjo (UPDATE, p-Hkdr.parl); 

return OK; 

} 


/♦ frh.c - file access reguest Handlers */ 

linclude <stdio.h> 
iinclude <io.b> 
linclude <fcntl.lt> 
iinclude <slring.H> 

•include <dos.h> 
iinclude <dir.h) 
iinclude <errno.h> 
iinclude "fserrno.b* 

•include "..\r4r\freg.h" 
iinclude “fch.h" 
iinclude "fac.h" 
iinclude “finf.h" 

•include “..trdrVstr.h" 


int illfunc (PREB »pJ; 



slfucl sfcb /* sptcial FCB *! 

{ 

char fcb_drivt; 

char fcb_na«t [ 61 ; char fcb_ext C33f 
char resvd [53; 

char ifcb_na»e [83; char sfcb_txl C33; 

static struct fcb f; 

extern struct req req; /* info about user takinq request, dir. being accessed */ 


/* handler for OTOi ♦/ 
int fsofwn (register FREQ tp) 

{ 

return( (c_o(>en {p->hdr.Ba»e, cnvrl (fr>hdr.F_H(®E), req.uno) = NULL)? errno : OK ); 

} 


/» CLOSE «/ 

int fsclose (FRE6 *p) 

{ 

(incache {|r>hdr.na*e, req.uno); 
return OK; 

} 


/* RE® */ 

int fsread (register FRE8 ♦?) 

{ 

CJILE *cp; 
register int n; 

if {(n * p->hdr.F_CNT) > FUMDAT) 
n » FJttXMT; 

if ((cp = c_open (p->hdr.n»e, lEADNODE, req.uno)) = IWLL /* open the file */ 

!! c_seek (cp, |r>*«lr*pos> < 0 required position */ 

11 (n » c^read (cp, p->data, n)) < 0) /• read */ 

return errno; 

p->hdr.pos += (p->hdr.len “ */ 

return OK; 

} 


/» HRITE «/ 

int fswrite (register FRE8 ip) 
{ 

CJILE ecp; 
register int n; 



if ((n » CMT) > FHftXDAT! 

n FfttXDATf 

if {(cp = c_opfn MRITEMODE, req.uno)) == NULL 

:i c_sert (cp, p->fcdr.pos) < 0 
i! (n » c_»rile Jcp, p-MaU, n)) < 0) 

rflarn trrno; 

f>->yr.|«)s +» (p->tKlr.F_CMT * b); 
p->hdr.ltn ■ Of 

return OKf 

) 


/* OaETE »/ 

int fsunlink (register FREQ *p) 

{ 

register cfear nf 

if ( unlink (p-HnJr.naie) »= 0 ) 

return (uncache (p->hdr.na»e, req.uno), OK)f 

if (errno »« EACIS) 
return EfCCES; 

if (strrchr (p->hdr.»a»e, '?') HIL) /* wildcards ? «/ 

return ENOFILEf 

*( s = strrchr (r>hdr.n»e, 'W')) = 'W; 
chdir (p->hdr.nate)f 

parsfni <++s, 4f, 0)f /* delete using FCB call */ 

J>X * (unsigned) 4f; 

~m = Ox13f 
geninterrupt (0x2!); 
chdir ("U")f 

return U PL ^ 0)1 (Ms BUFILE); 

) 


/* l®WC «/ 

int fsrtnam (register FREQ »p) 

{ 

register char ts; 

if (renaae (p->hdr.na»e, p->dala) = 0) 

return (uncache (p->hdr.BaK, req.uno), OK); 

if (errno = EflC(H) 
return EACCES; 

if (strrchr (p>>hdr.na»e, '?') - tW. tt strrchr (p->data, '?’) = (Ml) 
return EHOFILE; /* *il'J«rds ? #/ 



#{s = slrrchr (p->h(ir.naM, « *\0'; 

thdir (p->hdr.B«ie>; 

parsfm {+♦$, *f, 0),' 

parsftw (slrrchr <r><Ula. ‘W’) ♦ 1, (slrHct fcb «)(((slr«cl sfcb 0 if)->sfcb_na»e - 1), 0); 

M = (unsigned) If; 

~m = 0x17; 

geninUrrupt (0x21); /« renane with FCB call */ 

chdir ("W"); 

rfturn ( (_«. = 0)? OK : ENOFILE); 

) 


/* (3ffil}! */ 
ini fschdir 0 
{ 

rfturn OK; 

) 


/* MKDIR if 

ini fsnidir (FfEO *p) 

{ 

fflurn ( (iritdir {fr>hdf.it«M) < 0)? errno 

: (fac»kdir (p->hdr.na*e) = HULL)? BKICES /♦ updalf dir. table */ 

: m ); 

) 


/♦ M®1R if 

ini fsn»dir (FREfl »p) 

{ 


} 


relurn ( (ridir (p^>hdr.naae) < 0)? errno 
sfacrwlir (p->hdr.na*e) ); 


/• update dir. table */ 


/• SEflRCFF, SEARCH */ 
int fssearch (FRE6 if) 

{ 

struct ffblL buf; 

register struct ffWk *s * (struct ffblk *) p->data; 
register int i ® 6; 


buf e *%f 


switch (p->hdr.cuiie) 

{ 

case SEflKHF ! if (findfirst (p-Midr.nate, Ibuf, p->hdr.F_ATTR) < 01 
break; 

*s++ * Iwf; 
i++; 


/« fall through »/ 



} 


t*$f SEARCm : Kliik { i < findnext (ibuf) == 0 ) 

*s++ * kif, i++; /» return as aany files as possible */ 


return < (p->htir.len = (intKp->bdr.F_lffiUF = i) » sizeof (struct ffblk))? 0 : EMOFILE ); 

) 


/♦ oei */ 

int fscreat (re§isler FREfi ♦?) 

{ 

register int fd; 

if <(fd s .treat (p-Midr.nai*, p->bdr.F_ftTTO)) < 0} 
return errno; 

_close (fd)f 

c.open (p->hdr.fta»e, O.RDHR, req.onol; /* enter into cache */ 

return OK; 

) 


/» CREflWEH «/ 

int fscreatneu (register FICO *p) 

{ 

register int fd; 

if ((fd * creatneir (p->Mr.i«»e, p->bdr.F.ftTTR)) < 0) 
return errnoi 

close (fd); 

c.open {^>f»dr.«aM, O.RDI*, reg.uno); 
return OK; 

} 


/* CREATTEJP i/ 

int fscreattetp (register FREfl »p) 

{ 

register ml fd; 

if ((fd « creatteup (p->hdr.»a», p->hdr.F.ATTR)) < 0) 
return errno; 

close (fd); 

c.open ([r->hdr.na»e, O.RDHR, reg.uno); 
return OK; 

} 


/* CHHDD, (ETHQD */ 
int fsMd (register FIES *p) 
{ 


register int attrib; 



if {(atlrife * jhMd (^Xidr.naif, ((»->hdr.code = CHMK»’ 1 : 0, 
r>fc4f.F_ATTRH < 0) 
rfisrfi trrno; 

^>f)dr.F_A'rnt ® ittrifc; 
relorn OK; 

) 

/* GETDATE, SETMIE */ 
ini fsdl (FTEQ »p) 

{ 

register C_FIl£ •cp; 

if i (cp = c^epen (p->hdr.na»e, flKMKE, req.uno!) = 0 

!! ?{p->Mr.code = SETBT)? setftlM (cp->hndl, (struct fti»e ♦) p->data) 

: gelftiie (cp->hndl, (struct fti»e *) p->data)) < 0 ) 

return errno; 
return OK? 

) 

/* FLEN ! return file length */ 
int fsflen (FREfl *p) 

{ 

register C_FIL£ *cp? 

if ( (cp » c_open (p->hdr.na*e, AWyHODE, reg.uno)} ** 0 
!; (p->hdr.f«)$ * fileiength (cp->hndl)) < 0) 

return crrne? 
return (K? 

} 

/* LOCK ♦/ 

int fslock (FIffS *p> 

{ 

register CJIlf «cp? 
p'>bdr.Ien • 0? 

if ((tp * t_open (p->hdr.naM, AMMfflE, req.uno)) »* IMl 
!! lock ?cp->hndl, p->hdr.pQS, »(leng •) p->dala) < 0) 
return errno? 

cp-)leckH? 
return 'OK; 

} 

/* UNLOCK i/ 

int fsttnleck (FES «p) 

{ 

register C_FU£ #cp? 
p->hdr.len * 0? 

if ((cp = c^open (p->hdr.Ba«, ANWIODe, req.uno)) = MAI 



!! «nl«k {C|r>hn<ll, p->l«Jr.|>os, KlTOg «J fr>daU) < 0) 
return errno; 


cf >!8Ci--j 
return OK; 


!* handlers fsr UTILS *! 
int fsinf® CFK9 «pi 
{ 

register ml funt » ^>bj!r.tedf - UTILS; 

static ifil {♦inf0_hajKl!trs CIl apl = 

{ 

illfunc, 

ilHunc, 

fslugin, 

fslognut, 

illfunc, 

illfunc, 

lUfunc, 

illfunc, 

getusrmfo, 

setusrinf®, 

^tfrpinfo, 

setgrpinfe, 

getdinnfo, 

seWirmf#, 

getusrhst, 

fetgrplist, 

^lagrps, 

rtuser, 

r*user, 

•kgreup, 

mgreup 

}? 


} 


return { func >* sizeof (infe^handlersl/sizeof (int (»){))? EINtTNC 
i <«inf8_lMnMlIers Cf»c3} (p) )j 


int illfunc i) 

{ 

return EIIWFNC; 

} 


f* fch.c - the file cache and associated routines »/ 

linclude <stdio.h> 
iinclude <io.h> 
linclude (string. h> 
iinclude (alloc.h) 
linclude <do$.h> 



Iincludf <fcnll.fi) 
iincladf "fcfe.fc" 

void f>ro«ole (C_FILE *); 
void demote (C_FILE *); 

CJIli « 9 fUrfe (void); 

C Fill tfcackf; 

ill cUbCd) * { OJDOM-Y, O_«?0MY, 0_RDHR, fWYMODE ): f* look-up Uble for cnvrtO ♦/ 


/# allecato •etory for tbo cache and set up Ihe doubly linked circular list */ 
char fcacbf_inil (void! 

{ 

rffister C_FlLf *p; 

if ((fcacbe * (CJILE *} calloc (HAYOFIlfS + 1, sizeof (CJILEH) = MU) 
return (Ttot tnough »enory"l; 

for tp » HEAD: p '» 4f cache CHAtOFlllS ♦ 13; pt+) 

p->hndl » -1, p“>prfv » p - 1, p->Bext = p ♦ 1; 

{{"pl->Hf*l * t€i©>“>prfv « p; 

return MUlii 

) 


/» open a file - specify nane, wde, user no. •/ 

C FILE • c open (char onioe, register int node, unsigned toiol 
{" 

register C_FM «p; 
int hndl; 

for (p » iCHEST; isopen <p); p = p->pre¥) /» cache hit ? */ 

if (p->«no *» ano 

i& shared (aodel^ p->Mde aode t (p-)aK)de 4 0x7) i node 
14 strcnp (p->na»e,naM) « 0) 

^eak; 


if Oiiopen (p)) /* no - open it and aake a nea entry */ 

I 

if (Mde » ANYHODE !l node « REAMDDE) 

Mde > 0 RDQNLY; 
else if (Mde « URITEHODE) 

•ode « O.WOLY; 

/* get a free cache slot and try to open the file »/ 
if {(p * getfree ()) ** NULL 11 (bndl * _open (na«e, ■ode)) < 0) 
return NULL; 

p->hndl * hndl; 
p->uno * w»o; 
p->p#s « OL; 
p->tode B Mde; 


/* fill in file info •/ 



p->l0Ct « iharfd (iorff); 
stfcpy 


I* tnltr into cache e/ 


} 

pfOMle «p); H Kike this file the NEWEST */ 

return (p),* 


/♦ close a file •/ 
int c_clese Irtfister C^FIfJE apl 
{ 

if (_close (p->hndll < 0) /* systea call to close it */ 

return -1; 

p-yhndl * -1; 
p->locl = 0; 

dptole (p); /« Mke it the OLDEST */ 

return 0: 

) 

/# proaote a file to the ICHEST */ 
statu void proaote (rffisler CJILE ep) 

{ 

If (p - fClfSIl 
return; 

{p-)prtv->ntil * p->»eilS->pfev * p->pf»., /« unlink p */ 

<r>prfv - ICHEST)->iiext « p; /* link to NEWEST ♦/ 

tIOCST » pl-hwxl « HEftD; /* link to head ♦/ 

} 


/f deMte a file to the OLDEST «/ 
static void deaote {rifisler C FILE •pi 
{ 

if (p « aOESTl 
return? 

(p-)prev-'>ne*t » p-)Mxll->prev » p-lprev; /• unlink p */ 
(p->»ext « Oti£ST)“>prfv * p? /* link to OLDEST •/ 

{flUEST >» pMprev = IC«): /« link to head •/ 

) 


/• seek in a file ♦/ 

int cjeek (register C FILE *p,long poil 

{ 

if (r>?»s “ 

return 0| 

if ((pos * litfk {p“>hBdl, pes, 8EHf_SET}l < 01 /♦ s«t position ♦/ 



7S 


if {?dir_righl_defined (p,r)) 

return EACCES; /* for others, the dir. right »U5t be set ♦/ 

if (p->ispublic) 

return OK; /♦ anyone can access a public dir. */ 

/♦ check if access can be allowed by virtue of group aeabership */ 
for (g = r>9>’0“P5; 9 < 4p->group5[HAXUGR]; g++) 
if <*g != EMPTY ii group_has_right (*g, r) 

44 istetber I*g, req.unoll 
return OK; 


return EACCES; 


/* all cases exhausted, deny access »/ 


} 


/* return a pointer to entry in the dir. into table */ 
static DIR *getdir (register char *na«, int isdir) 

{ 

char *5 = NULL; 
register DIR *p; 

/* if the nane refers to a file, get the parent directory «/ 
if (iisdir 44 (s = strrchr (naie.'W'lJ != NULL) 

*s = 'XO'; 


if (s = naie} 

nake = /♦ the root! »/ 

/* index into the hash table and search the linked list •/ 
tor (p = dtab [hash (naie)]; p != NULL; p = p->next) 
if (strap {p->naM,naae) = 0) 
break; 


if (s) 

*s = ’W; 


return p; 

> 


/* check if user 'uno' is a tekber of group 'gno' «/ 
int iskekber (u int gno, u int tmo) 

{ 

register StOUP *g - 4gtabCgnD]; 
register u_int *k; 


if (»g->nake = '\0') 
return 0; 

for (k = g->keks; n < 4g-)keksCNAXGRN3; fce+) 
if (ik = uno) 

return 1; 


} 


return 0; 



} 


lAilr (pi U uleckid {p}| 

p s p->ne)il; 

if (isBprn (p)) 

(p); 


/* find i fiU that is not locked */ 


return ((p « «AC>’ HA.L : plj /♦ should never touch the EAD */ 


/» print cache status */ 
void printcache (void' 

{ 

register C_FILC *p; 


} 


for (p = HEICST; isopen (p); p * p->prev) 

pnntf ("Isstluser IdVUode IdVtXsXn", 

p->n*»e, p->«no, p->Mde, islocked (p)? lOCKB" : 

for (; p '» HEAD; p ■ p->prev) 
pnntf 


/# fsio.c - driver interface •/ 

•include <io.h) 
linclode <fcntl.h> 

•include <$tdio.h> 

•include <conio.h> 

•include <stdlib.h> 

•include "..\rdr\freg.h" 

•include ’..\nftdrvr\dev.h" 

•include <bios.h> 

int shutdown (void!; 
void cloie_dpv (voids I 

statu struct tblk cblk; 
statu int dev, dtvcfg; 

char fdev init (int port) /» inilialite driver */ 

{ 

cblfc.lport * port; 

if ((dev = ^open (DEV, 0_RDMR J OJIMflRYJ) < 0 /« open in BINARY tode */ 
!! loctl (dev, 2, icilk, 01 < 0) /* Bpen port */ 

return CDnable to open driver"); 

if (cblk.Ipert '■ port) 

rilurn (’l^blt to opw pert"); 


cblfc.ack K 0; 

devtfg » iectl (dev, 0); 

atexit (close^dev); 


/* port oust be closed on exit */ 



rtlarn Ullj 


) 


/§ (lesf p«rl mi inw */ 
raid cIeM_d»» (wid! 

{ 

lecU (dfv, 3 , icbll, 0 ); 
_close 

) 


ft p\ i rtpfsl fr» a rwwU tljfnl */ 

FKQ ffftfff l«id! 

{ 

static Fl£& ffd; 
cbU.rbuf * 4rff; 

irfiilf CshBtdewi ()) 

i If <.rfad (dfv, icfell, FlEilN) '» 0> 

rttarn irtdj 

lacU Cd#¥. 1, Oxf#); ft rnet EOF bit ♦/ 

) 

fdtarn NULU 

} 


ft send a reply le tbe revet# {hent •/ 
void reply (ITKfi ep, ml Itn) 

{ 

cblt.xbaf ■ p; 
erite (dev, icblk, lenlf 

} 


int shutdovn (void! 
( 


if Cfeiostey (?n 
fttBm i; 

priBlf C\ii9»atd#«« ’ •>? 

return ( (fetch# 0 t Ox5f) » 'Y* If 


} 


/* fip.t - disk spate reutines */ 

•include <alloc.h> 

•include <ildi#.h> 

•include <sldhb.h> 

•include <<tes.h> 


Iincludf \.\Tdr\(tt<i.h’' 
lincludf 
lincludf "ds.h" 
lincludf ■fierrna.h" 

static struct dp d; 
extern itruct req rei; 

ft fft the nwber ef clusteri used up by a direclery and all its children */ 

/» specify the slarlins cluster no. of the directory */ 
int jetcloslers (unsigned scnl 
{ 

OilOfTilf »W; 
rtfisltr ilBITSV ftp; 
register uBSigned nt * 0; 

unsigned Isn «= lolsn (scnl: /» get corresponding LSN */ 

if ( ibof ■ Mllec (BUFSIZEl) « WU.} 
relurn t: 

/• read in the directory sectors into the buffer «/ 
for (absrtad (Z.HKCT.Un.ep » kiflj 
*ep*>na»e! 

(ep < (buf ♦ 31H’ (ml) ep^r 

I tibsread <EilKCT,lsn *• iiSCCT,tp » buflU 

{ 

if (inualid (epH 
tmlimt; 

nc ♦* (iifile (epll’ loci (•p->sizfl /♦ for a file, add to sin */ 

J (itdif Ifpll’ felclaslers {fp’>sc_n 0 ) /» for a dir., do a recursive call ♦/ 

s 0; 

) 

free (buf}} 

relurn nc ♦ 1} /§ »®, of clusters under this dir. ♦ the cluster holding the dir. itself */ 

) 


/• read in disl pr^Mleri •/ 
void geldp (void) 

{ 

struct boot b; 

absrtad (2, 1, 0, 11} r 

d.spc » b.spc; 
d.bpc » b.spc ♦ 512 } 
d.lnrt ■ l.ws ♦ 

(b.spf 0 b.ncfl + 
(b.nerd ♦ 32 / 512}} 


/» pi slartinf cluslir §». of a dir, #/ 
unsigned plscn (char adirl 



fUU 


ilmtl Bxftfe U 
tUtic char dla C1E8]; 

i»l4U {(char far i5 yta); 

parift* (<lif, iilrucl fcfe «5 lf.8fcfe,0)f 

f.fU? = -If 
f.iUr • OiWf 

_flH » {fell; /* i»arch fer wiry asi&f fa.llh */ 

n * if; 

(OkIVU 

fflurn ((_AL =* -1 f ((ilrucl aifcfe far »> iU)->ufcb.d.$c_no )5 


/* handlfr far ffISPflCf */ 
ml fsspiCf {Fl£@ 

{ 

USER •«; 


if (iiiBp (rtf.weH 

/• let lh» »Bpfr«ifr, rtliirB mfe Ihf thsle disl: ♦/ 
ffldfrfi ( 0.{flract ifrtt •) |r>4ata)f 

tlt« 

{ 

/* far a mcmI »i»f. rtlere i»f6 frcw bis psml #f vita t/ 
a ■ filetrfRlry (rt^.une); 

(<itr«cl dffff •! p->4ala)“>df_a»ail * (t-Km » it-Hncl - jetclusters (u->scn)) < 0? 

0 ! rHreej 

{{struct dfrtf f! p->4ala)->df_$tl»s « d.spc; 

<{ilr«cl dff»» «) p->4alaJ->df_bsfc » 5l2f 
((struct dfrtt tj p->4ala)->dfj8Ui! « u-Hsclf 
3 

p->fcdr.iM ■ siittf (itfutl dfrft3f 
rtlurn Wi 


/* chscl ipcf lift •/ 
int qusta cMe {« tnt Mat 
{ 

USEl «if 

itrwl ifrw Ifrtff 

if (istup lm$}} 

( fftdfrtt (0, Wfradf 

ftluirtBlry {03-Mrtf « dfr«.dlf_«Mill 
riturh Of 
3 

/• clfct ipact Itfl ml «p4ila uiif Itblt •/ 


If » ftlBiffulfy iwneh 

rtlari = 8->lnt1 - iflclaslffi («->$cb>) < 0} 

) 


/» buildjnf.t - tepariU utiiilji le crwU Bi»r, freop and iirtclsry Uiles fro* scratch »/ 

fincludf <»tdio.h> 
linclBJff <sWisl.h> 
findwlf <^ir.h> 

IfsclafJf <4es.h> 
iintlu 4 f <aUc<.h) 
liBClB# <strnif.h> 
lincl»df "fac.h" 


»9ji Irtwrilf {FILE •ff, tlur 
DIR * <fuhsl (char tptfeif 

•am () 

{ 

FILE •lp\ 

llitK U® • 

MW 

» 

R flU , 

olo.o 

}j 

strsct iffft 4fftf5 

static DIR rest « 

{ •W, 

0, 

0, 

i MW 

tfi 


/• trttl# titr fill Bith wptfBifr at Ifci wly Bt»r *f 

if <lfp * fof*n (USRflLf, -nn} - HAiJ 
ptrrer {WMI, tail <1)j 
ffllfrtt {0, MfritJf 
s«p»rifSfr.lMi ■ i(frf»,4f_l6talr 
Mpffusfr.frw a 4fft».if_aviil{ 
furilt (livpfrittr, liitif iWBth 1» fp>l 

/« crMtf frwp fill (iiitiilly Mftyl •/ 


if (feptn (Will, >1") w mi) 
ptrrar (GlfFM). exit {tij 


/# cf»alf iifKtcry infe fil» •/ 


jf ((fp ■ hptp iEmiu, vri) Kuu.} 
pftrer <D3tf litl.eiil (fj; 

ter (f * re«l.fre«pi.; f < iroot.sreupiCHftri/BIJj 5++) 

•f • Of If? 

f*f jie iirml. m*e( (DJUl, i, fp)t /# tt>* root */ 

Irwnlf -“n /t n,t rest */ 


void Ifffwrilf (fffiiter FIlE *tp, cfear #patk> 

{ 

fffjslff Dll* *p: 

for <p * difhsl P '* FM-L; p » p*>w*U 

{ p«li 

f»nlf (f, Mint (BID, 1, fp)} 
Ifffwrjlf (fp, p-Hinfh 

} 

) 


BIR • dirliil (ctvir tpit*** 

{ 

cMr ttirth(MOt Cmim£N}| 
strurt ffPIl dtrinfe: 
fffistor ilfsrl ffbH ♦ip ■ (Miftniit 
rffiitff Bit *p} 

BIR « list < NUlit 
*11 

stftpy (itpcpy (iMfcbpalh.pilfcJ, 
findfirsl (ifirtlp#th, ip, Fft^DIlECJi 


do 

C 

If ('(irMf.lllfjfe i FftJIKC} !5 lirH^ww* *• 
tfntiiiti#: 

If ((p » (OIR uHec (1, »ii«f (OiRH) ilU 

p»rrtf riifiHt*f»»i(tt (f)f 

ilftpy (ilptpy (r >«*••. - 3f 
f‘>emet « Or 
p">ISp«fcSH •> 01 
r>rjthls * t.HJNEf 

for (f ■ p'>ffwpsi f < 4|r>ffeapsCNftJtU®3} f*+} 

•f » Of TYj 
p->w*l ■ llll{ 
iitl *> ft 

(findfimt (jps *a Oil 
r#lir» lull 


I 

/. ^ 

lifnnr FKt.H 

FWi_H 

4i6d«4*-^ 

M»riM wnwtiM #£i 

typ»lff sUid 
{ 

«BSifn»d jnl ifij; 

miftrl tnt il; 
char nm WllfWiM); 

I in; pBi; 
lit t»#; 
ml if«r 

URUfBii l»l p«r 1 ; 

) MB} 

WifwFHBW,W iimf (Wi 

Wifiwf FHiipT ■. ■ 

tyjiitf ilfBd .... 

{ f* Ifcf CMpSfli iessjj, ,/ 

fm Mr{ 

ffcir uu fomiaiTji 

mi! 

W»fw MMM iiifjf 

/* IMM> tiWfntMl iiiiifi •/ 

Wifw fJMt pirl 
Mffjw F^HOK iirl 
Wm fjm pin 
Mffiw F_lfUF fet 

/• IFiriltM «##! |.ipp#rlf| tirttr •/ 

IBM f tpi 

( 

Ktm, 

mm, 

m, 

mm, 

«fm, 
mm, 
mm, 
mm. 

SEMCff. 

SEMCm, 

amt, 
cKfitm, 
cmmu, 
am, 
am». 


'* **'*S^*' * Ntfi sptcifitation »/ 

'* •rsMs* stmctare */ 

iffiimti w. of request */ 
iwr iltBlificiiim ,/ 
filt/lir MM 1 / 

Fjlf poinltr positiM »/ 

/* ipfritiM c»«fj »/ 

of 4ila fifid t/ 

/* filfi pirmtrr *f 



(6G' 


srTfi. 

ffIDT, 

aa. 

cum. 

ammt, 

lOW. 

mocK. 

WTILS 

h 

/* mMuniliefn fat UTJIS 

(itw 

{ *E.W_Ma « 0, /* tknk ,f r* iRsUllKi - Siipportfd bcjlly */ 

f*S >•! ilatBi - supported locally ♦/ 

LOGli. 

LOOM 

)f 


H itm Mppisf • I8»*ftfd loriily */ 
tool Mp.eps 

( GETW * lOOin « 1, 

srwf, 

Banap 

h 

Mm QElUfl (KLJW « !) 

/♦ iUfirMlilW * t«pp«rtfd Ml Sffeff •/ 

foul inte^opi 

{ fiFTSSRUfO • ffWC ♦ f. 

SETUSRlIfO. 

mmpim. 

mmim, 

mumo. 

swimo, 

(Ewmtsh 

mmm. 

smm 

h 

/• BSff/ffsap » ' 

ip.ifl 

( wwi • diirjrs ♦ 1, 

PMKu L 

I 

limjr, 

mxm 

>! 


/* str,fc “ Hf,iti fantliM ifflariliiwi •/ 

flif far afiliKi^ Itfear far adest, cfcar far isfclf 
clar far Icinr far »|fsi, ckar far tire, iil nh 



IOC, 


c!kif *1 M (hit *i?J! 

tMf f«f f** •»U)s 

i%it *U«nnJ 'th«f *r,mf, {K«f lit tfdfls 

(h»f lit *Uhk lilfutl Ub lit (Mr 

i«{ •ifil. t^r f*f •(((, (Mr ilitiUi 


ft rf.h - fW'lr filr ni*5i* nfitulim llrwlsr# 1 / 

IjBClt# •frfi.l” 

Ij'Pfiifi’ ilrart 
{ 

(Mr turn 
tit wif; 
lit sfeMh; 
leftf ^1; 

) LJILE: 

Mffiiif mv » 

Mfftw liMM m 


i* MthnMf */ 
f* mit if 
t* m. if MM!ti #/ 

I* flit peiitir positira */ 


/I rM.fc ‘ •»! fwxtiti #{Ur«li(w» ♦/ 

(Mr f(Mr rMtr Mr *|)2 

(Mr <(M» (Mr f*r ifdfU 

mi I* 8 t 4 l! 


/« ftt.fe - Iftlifiliwii fit IM tfr*ff til! itltrMci •/ 

HrfiRf NUll 0 

MtlfS TO fill 
ixtrri ml irrcili; 

RKI #wr»»fti!l fOif *>, itl ti##, ml Iwli 

wl tmilt 

lit Mvjjp (vDj^h 

Wi4 ffciilj 

wii mtsfffff lltSf •! 


/• fihfrf.fc " Mndlff lr;2«r«lim •/ 
Ititliir 'rl.k* 

/♦ wftUr Mr triftMl 0ffi fislmti */ 
Mtfmf DOSWECT £httf 

/* IM Mftdlirt #/ 

Wffm# ncfitl.mns ript#,\ 

fta.V 

r|«i,l 
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rri^>r,\ 

ftffll.V 

fW», \ 

rf»*l, \ 

r»® 4 ,\ 

ri8ttl,\ 

r«Mi,\ 

rtfM,\ 

rlw, \ 
riM.\ 

*imA 

t%ntik,\ 

nutik.s 

riai.l 

t*m,\ 

ftmtmA 

fil.\ 

nkB,\ 

timA 

r(r» 4 ltMp,\ 

'sliil 


iiffiBr iifitUfifi 
Mf(w JitaHjjfvJ 

Mehsf 

»*» { 0 OS » 0 , 

m, 

m, 

5 ; 

wjir# tfcif up raisji 
Ulil *(flth {3; 

»»»< iBUrrapt nni {(tiCTis 

tiirfii mm II •fM.i, 


U(c} t 0 i 5 fJ - •«•} 

ffifiil < B_<rvi) 

* (Ifti < ii II Etlff>3 ) 

/• i pMitllf p»m fir « rffwil #/ 


ip, mo t%.im 


lat l»fi» 


* Ifef f»(Jir#{{af tiijii rtatiM 
Wfi tin »t initiiiit4titt itnUliitiM 


ff 



If 

tfu Ca* 


IR? 

IfflWil ^1# INlllC 

•w 

"icn 

Mit 



ti’’* 1^11 H 

•P!<s* 


enl$ 


"iSE 

itffcfRt wr| twlht 

'BS* 


iik! fcyit 



tnli 



_ISSDf* itfhnl mri 
mX‘ tt4i 

HGTOtf frwf 

mK iP.ifif. i%tmm 

•if? II ’ftmit ftit tmiilirl'.trjr.'i* 

f»|s 

.IRT trpfit 



0«DM 

1 

m 

-f 

m 

»Mr 

lUfi: •«¥ 

♦*•<1 

IM'f 

li.il 

(ill 

i^i» flf 

tiii 

Wif tlf 

w 

it.it 

1*1 

ri0 

till 

Wit pit 

•r 

it *it 


fif 

Ciii 

**if fir wiliH 

•tv 


m 

li.tS 

Mv 


Ilf 

It. cl 


iiIrM# iailiUtf’ 


llrjw JiiliHflt 


lainiilt lilt «f aiMry t« 



10^1 



mv 



ml 

III 

rrf: 

mi' 




Ifctrt rfc' 

fit: 



raH- 

.iMf 



lit 

Ill 


i^f 



lit 

2 Jfc 

miR 

fiiip 





firm miu§f 

Silirl 


iWiihi# 111 *anill#» ji \ht _I6S triMnl It 0. 

,1, I.-l« t 11.1, I, Ik, M.I. *,,1, „ *, 

frm Iht Ttfk C (t|f tC.iw rMirecior. 


1 

iftt Bfir 

Mf 

it, it 

:|^f 

ft,ii 

iff 

it.it 

i^f 

ii.tlfifl KWrWilii 


tt.lffi#! 0«W!t4it*| 

Itl 

(■ill 

ff> 

itctfc 

fit 



«*# 


_HT f^s 

_K0i iffiftt 
tiilil lilt I i^if 

»4iir| iiiil iji, 

,mm tRii 

Mlrn cfcl.iRiUll ; tf«f 
Mtffi jBiUll : 
iKlrn : tttr 

itiri 


I flil.ii* » ikf lit in Mlltr fir Ite rtitrfctff 

iRcli# filii.asj 


-MS § 

_RS tfy f 


f 



( » 


m ‘ 

'KTfP 

mtn 

pti ft 

pifc i% 

pes^i it 

P«4)'’ 41 

pii4>i 

ptifc (t 

p«ii^ l» 

pifc *» 

mil 

Mtfi 

i 

l»» fe» 

m f* 

m <* 

W n 

ii 

pe» 1^ 

ftp <♦ 

ptf ti 

mil 

HriirrI 

csffa 

_ri0l pt$i 1§f 

p*llil I 


Iti 

•#« 

l>,ti 


it.li 

Hk 

ii^lr 

Ip, Ip 

pill 

Ip 

fill 

ifir ptf 

iic 

*1 

IK 


if 

i*,*> 

Jil 

fcl 

ftpill 

ini 

m 

lip 

ifcirl 15 

(ip 

*u.n 


Ikf iMmlifff 
mm ill rifitlfri 

If ptilt it rtfiftiri M ftici 
fiii Ml i^rf IMi cil! If to k lent 

iKii cili *> ti KB tkrMfl Int 






pK4>’ 



tali 

mm fit 


t*f 

If 


itc 

If' 


•f 

it , it 



U 


i»# 

%hfn 

tf.’ 

t»r 



j» 

II 


lit 


M: 



h5! 

r#l 

i 

_fit| 

f»lk 


ftlrs 

•fcfffl# 

: msf 

filr* 

_r«w!r(«Il ! anf 


,ri»t 


r fumi.il* - tk# f»f Ikr 

wno m 

fsifciSI M(r« 


kvih 

n 

|«lk 

it 

pitk 

If 

^tk 

it 

pnh 

11 

mth 

4i 

(nil 

t» 

imk 

1) 

PRtI 

•t 


ffwilf (||{ -) ig III iifggf 


tHart t» ntt 


fffir 


lk»»* my Ifcf trifiMl figjs 



•Blliflfi Hlirr*f| iiat 2ft} 


I tin mltiflti M. 


tk* 








It 



i» 


mf 

it 


m 

t! 


m 

li 


mf 

h 


ftf 

It 


m 

ft 


wk 



Ikiiffi 



SSffl 



»f( is 


! Ml Itfc tfdir 




5»|l 



rwt 

ifij i*» 

lit 

n* 

•i.limi' 


1* 

fi© 

! fit •#’ 

m 

tll*n 

1 (liM la Mil iMllfr 

n0J if 

il.al 


m 

fit 


ifii 

al 

J ai • 0’ -) tay I't Iff# ^ al « Off! 

r»1f pwli!l 

1 ws*f rffttltn 

til 


•»k 

l^.ti 


m 

#t.lf 


•»« 


1 if Piilt li ftfJlltfl 


If 


Mi) 

ifaf fif .tshi* 

} tlw ittllty liWiiff 

ti{ 

♦» 

iK 

ip 


•f 

ai.i) 


Si 

til 


lit 

r» 


{ Citry rrfiftli call ttalii 

)»Mn 



rtl 

( 


nm 

f'. ; 



mm 


I 


«lw»l il rMt ilftily mUilrt 


I*’*! 

Hfv i'f- 

Iff «i3 *’i 

JT-1 

if' l‘ 

ffl 

mUU fffc »t*' ! iMUn mt i* llN» (Mm 9f taUiplti interrupt 

TA 

?«. 

pi* »»t i.« 

»»4 plf %fi * l,»i 

in 


i»iun i«# 

wtm _^fitih I fwi» 

plit( 

pelltc iMtall 

mf 

/* mp4 * Ifjff *f 

•isri^ 

IlKl^ 'llf.l* 

h * *\* H I *1 

«efiM $|*0^i •* ‘U'Jt 

♦l## t •|V* 

♦iliri WTf lif^iff, ff| #f»i 

Mtirn ih#« rufjjf 

tfe»f Mp C?4JtjP35 /« the Ml l4*li */ 

/» leiK ahslsle (tm Un |«ifc it | 

I* f»«|fe5)r, '-iillii » iif.) ♦ <|> */ 

Am *|ithMp s«^f *iaitti, (tv*f far *p) 

rifHtef 4»* *• /• #1*# l|ttifi#i it Wipsl «/ 

rtmler fiHir «| r iwiiii* 


Wi 

•t» 

1*1 

lif 

III 

f#t 



char 

( *(p + 1) = 

P += 2f 


) 


<» = (char near *) fstpcpy 


•ap [drv]); 


/* copy out aap »/ 


I 14 


if (*p != ’W) 

{ 

slash (q); 

q = (char near ♦) fstpcpy (litit = q, curjir Cdrv]); /» current directory */ 
slash (q); 

return ( (pathcpy (q, p, li»it -1))? 0 : path); 

} 

else if (♦(■Hp)) 

{ 

slash (q); 

return ( (pathcpy (q, p, q - 1))? 0 : path); 

} 

return path; 

} 

/« build absolute path specification frot the filename in the FCB ^fcbp */ 
char *fciMtap (char <path, char far ffcbp) 

{ 

register int drv = req_drv; 
register char *q = path; 

if ( *fcbp = -1 ) /« take sure that fcbp points to the filenaie »/ 

fcbp += 8; 

else if ( *fcbp <= 26 ) 
fcbp++; 


q = (char near ♦) fstpcpy (q, up Cdrv3); 

/* copy out up */ 

slash (q); 


q = (char near *) fstpc;^ (q, cur_dir Cdrv3); 

/* current directory »/ 

slash (q); 


toasciiz (q, fcbp); 

/* filename in ffiCIIZ fort ♦/ 

return path; 



/< clear all nappings */ 
void init up (void) 

( 

register char (♦•) C32] = up; 

while (■ < taapCZb]) 

«■++ = '\ 0 '; 


J 



/♦ rio.c - driver interface »/ 


linclude "freq.h" 
linclude "slr.h" 
linclude "..\neldrvr\dev.h“ 
linclude <dos.h> 
linclude "..\fs\fserrno.h" 

Idefine NULL 0 

extern ini echo; 
extern unsigned uid; 

FREG pkt; /* the request Mssage buffer */ 

int errcode; 
static REG rbuf; 

static struct cblk cblk = { OL, 0, -1, 1, NULL, NULL >; 

FREG ♦netio (FREQ tp, int len); 

/« the server call interface */ 

FREQ ♦servercall (register FREG »p, int code, int len) 

{ 

register REG *r; 
static unsigned seq; 

p->hdr.seq = ++seq; 
p->hdr.id = uid; 
p->hdr.code = code; 
p->hdr.len = len; 

do { 

r = netio (p, FHDRLEN + len); /* send request and wit for correct reply */ 

} while (r->hdr.seq != seq); 

return ( ((errcode = r->hdr.code) = OK)? r s NULL); 

} 

!* driver interface «/ 

static REG «netio (REG *p, int len) 

{ 

cblk.xbuf = p; /♦ pointer to request »/ 

AX = OxSdOZ; 

_DX = (unsigned) DEV; 

_int_ (0x62); 

JX = _AX; 

_AX = 0x4401; 

_DX = OxeO; 

_int_ (0x62); 

_AH = 0x40; 

_CX = len; 

_DX = (unsigned) Icblk; 


/« sequence no. of request */ 
/♦ user id «/ 



/* send it and wait for reply */ 


( U 


_int_ (0x62); 

_AH = 0x3e; 

_inl_ (0x62); 
return (trbuf; 

} 

/* check if driver installed */ 
int chk dev (void) 

{ 

_AX = 0x3d02; 

_DX = (unsigned) DEV; 
l,int_ (0x21); 
if (_aA(B i 0x1) 
return 1; 

BX = AX; 

_AH = Ox3e; 

_int_ (0x21); 
return 0; 

} 

/* initialize driver */ 
int dev up (void) 

{ 

register int hndl; 
cblk.rbuf = 4rbuf; 
cblk.lport = -1; 

_AX = 0x3d02; 

_DX = (unsigned ) DEV; 

int (0x21); 

hndl = AX; 
if (_FLA(JS i 0x1) 
return 1; 

BX = hndl; 

_AX = 0x4402; 

_DX = (unsigned) icblk; 
_int_ (0x21); 
if (cblk.lport = -1) 
return 1; 

BX = hndl; 

AH = 0x3e; 

_int_ (0x21); 
return 0; 

} 

/» shut down driver */ 
void dev_dovn (void) 

{ 

register int hndl; 

_AX = 0x3d02; 

_DX = (unsigned) DEV; 


/* pointer to buffer to hold replies »/ 
/» acknowledgaent expected */ 


/* open port */ 
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_int_ (0x21); 
m = hndl = _AX; 

_AX = 0x4403; /« close port */ 

_DX = (unsigned) dcblk; 

_inl_ (0x21); 

JX = hndl; 

AH = 0x3e; 

_int_ (0x21); 

} 


void setserver (long soddr) 

{ 

cblk.fbost = saddr; /* set server internet address */ 

} 


/* rwhere.c - decide where to send a request */ 

iinclude "asa.h* 
iinclude “rwhere.h" 

Iinclude *int21.h" 

extern BYTE cur_drv, n_drvs, log; 

BYTE req_drv; 
char far *dta; 


int whereto (register REGPK ss * r) 
{ 

register int drv; 
char far ap; 


switch (r-)fl«C) 

{ 

case 0x39 
case 0x3a 
case 0x3b 
case 0x3c 
case 0x3d 
case 0x41 
case 0x43 
case 0x4b 
case 0x4e 
case 0x56 
case 0x5a 
case 0x5b 


/« decision based on function no. </ 


/♦ ASCIIZ calls «/ 

/» check drive letter specified in path ♦/ 
/* or default drive */ 


drv = (*(BUFFER + 1) = ':•)? digitize (aBUFFER) : curjrv; 
break; 


case 0x4f : 


case 0x3e : 
case 0x3f : 


drv = (drv = adta)? drv - 1 •' cur_drv; 
break; 



in 


case 0x40 s /* handle - based calls */ 

case 0x42 J /« check if handle is rewte «/ 

case 0x44 : 

case 0x45 t 

case 0x4b : 

case 0x57 : 

case 0x5c : return ( (r->HNDL < HAXH U fptab Cr->HW)L5)? FS : DOS ); 

/• set drive - intercepted to keep track of changes */ 
case OxOe ! return ( local ((cur_drv = r->DftW0DE))? DOS 
! (r->b.al = n_drvs, RET)); 

/* get drive ♦/ 

case 0x19 t r->b.al = cur_drv; 
return RET; 

/* note changes in DTA a/ 
case Oxia s dta = BUFFER; 

return DOS; 

/• FCB search, delete, renane calls a/ 
case 0x11 : 
case 0x12 : 
case 0x13 : 

case 0x17 : if < a(p = BUFFER) == -1) 

p += 7; 

drv = (ap)? ap - 1 s cur_drv; 
return ( local (drv)? DOS 

: valid (drv)? (req_drv = drv, FS) 

! (r->b.al = Oxff, RETERR)); 

/a parse filenaie a/ 

case 0x29 : if (a(FCP (r->w.ds, r-hi.$i) + 1) != ';') 

return DOS; 

drv = digitize ( aFCP (r-Tv.ds, r->v.si)); 
return ( local (drv)? DOS 

: !valid (drv)? (r->b.al = Oxff, RETKR) 

! (r-)v.si += 2, r->b.al 1= 0x2, 
aF(^ (r->v».es, r->t(.di) = drv + 1, 

DOS)); 

/a disk space, get current directory a/ 
case Oxic : 
case 0x36 : 

case 0x47 : drv = (r->DRVCffl)E)? (r->DRVC0DE - 1) : curjrv; 

break; 

default : return DOS; 

} 

return ( local (drv)? DOB /a route the request based on the drive a/ 

svalid (drv)? (req_drv = drv, FS) 

:(r->ERRC00E = 3, RETERR)); 





/* dewiUipIex request to the various handlers ♦/ 
int reiotecall (register REGPK ss *r) 

{ 

register int code; 

static int (*rcall hndlr CD) (REi^K ss *r) = 

{ 

RCALL HWLR5 

}; 

switch (r->FUNC) 

{ 

case 0x11 : 

case 0x12 ! r->b.al = (code = rfcbsearch (r))? Oxff ! 0; 
break; 

case 0x13 J r->b.al = (code = rdel (r))? Oxff : 0; 
break; 

case 0x17 : r->b.al = (code = rfcbrenane (r))? Oxff •• 0; 

break; 

case Oxic ! if (code = rspace (r)) 

r->ERRC0DE = code; 

break; 

default ; if (code = («rcall_hndlr Cr->FUNC - FIRST]) (r)) 
r->ERRC0DE = code; 

break; 

} 

return ( code? 1:0); 

} 


/* rBrq.c - liscellaneous requests e/ 

ipragta inline 

linclude <dos.h> 
linclude <errno.h> 
linclude "asn.h" 
linclude "int21.h“ 
linclude "freq.h" 
linclude "str.h" 
linclude "..\fs\fac.h" 
linclude "..VfsUserrno.h” 
linclude "rio.h" 
linclude "rip.h" 

Idefine NUTILS ( sizeof (util hndlr) / sizeof (int («) 0) ) 
Idefine DOSVECT 0x62 

int rslat (RE(5PK _ss *r); 
int _login (REGPK _ss ar); 
int _logout (REGPK _ss ar); 



int riap (fEGPK _ss *r); 
int rdua (); 

ini rinfo (REGPK _ss *rJf 
int runo (REGPK _ss *r); 

void interrupt rint (REGPK reg.HORD ip,ll]fiD cs.MDRD flags); 


unsigned uid; 
unsigned uno; 


/* user identification */ 
/* user nutber */ 


BYTE n_drvs, curjrv; /* no. of logical drives, current drive »/ 

BYTE log = 0; /* whether logged in or not ♦/ 

extern char nap CE63C3E]; 
extern char cur_dir C263C3ZD; 


static int (*util hndlr [3) (REGPK ss ♦) = /* utility handlers */ 

{ 

rdim, 

rstat, 

_login, 

Jogout, 

r»ap, 

rwp, 

rsap, 

runo, 

rinfo, 

rinfo, 

rinfo, 

rinfo, 

rinfo, 

rinfo, 

rinfo, 

rinfo, 

rinfo, 

rinfo, 

rinfo, 

rinfo, 

rinfo 

}; 


int rlogin (unsigned userno, char far *pwd) 

{ 

register FREG *p = 4pkl; 
fstpcpy (p->hdr.nate, pud); 

p->hdr.par1 = uno = userno; ' /« save user no. *1 

if {(p = servercall (p, UTILS + LOGIN, 0)) = «JLL) 
return errcode; 

uid = p->hdr.par1; /» save user id */ 

return p->hdr.code; 

} 
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ini rlogoff (void) 

{ 

*f>kt.hdr.njtM = '\0'f 

return ((servercall (ipkt, UTILS + LOGOUT, 0) == fMl)? errcode : OK); 

} 


int rdui 0 
{ 

return EDM^NC; 

} 

/* 1c)i, 36)> - disk space ♦/ 
int rspace (register REGPK ss *r) 

{ 

register FREfl *p = ipkt; 

♦p->t»dr.naie = '\0*; 

if ((p = servercall (p, GETSPACE, 0)) = NULL) 
return Oxffff; 

if (r->fUNC = 0x36i 

r->K.bx = ((struct dfree *) p->data)->df_avail; 

else 

efCP (r->w.ds, r->¥.bx) = 0xf8; 
r->«.ax = ((struct dfree *) p->data)->df_sclu5; 
r->w.cx = ((struct dfree *) p->data)->df_bsec; 
r->*.dx = ((struct dfree ♦) p->data)->df_total; 
return OK; 

} 

/» the utility handlers */ 
int rutils (REGPK ss *r) 

{ 

register int code; 

return ( (r->SUBFlWC >= NUTILS)? (r->ERRC0DE = EINVFNC) 

: (code = (*util hndlr Cr->SUBFUNC]) (r)) != OK ? (r->ERRC0DE = code) 
: OK ); 


/* drive tappings */ 
int rtap (ROTK _ss *r) 

{ 

register FREQ *p = ipkt; 
register int drv = r->b.bl; 

if (drv < n_drvs !! drv > 25) /* drive valid? «/ 

return EW!V; 
switch (r->SUBFUIC) 

{ 

case SETMfiP : fstpcpy (p->hdr.naie, BUFFER); 

if ((p = servercall (p, (M)IR, 0)) = ML) 
return errcode; 


/* check if path OK */ 



} 


fslpc|^ (»ap Cdrv3, p->h(lr.naM); 

♦cur_dir Cdrv] = '\0'; 

break; 

case GETMAP ! fstpcpy (BUFFER, tap Cdrv]); 
break; 

case DELMAP : if (drv = cur_drv) 
return EDftV; 

Hap Cdrv] = '\0*; 
break; 


default : return EINVFNC; 

} 

return OK; 


/* save up ♦/ 


/* reset tap */ 


/* user/group/directory inforiation handlers */ 
int rinfo (register REGPK ss *r) 

{ 

register FREQ »p = 4pkt; 
register int len; 


»p->hdr.naie = len = 0; 
switch (r->SUBFUNC) 

{ 

case SETUSRINFO '• fnencpy {p->data, BUFFER, len = sieeof (USER)); 
case GETUSRIhFO : 

case GETlfiRPS ! 

case RHUSER : 

case WiGROUP ’• p->hdr.par1 = r->w.cx; 

break; 


case SETGRPINFO : fnetcpy (p->data, BUFFER , len = sizeof (GROUP)); 

case GETGRPINFO ! p->hdr.par1 = r->w.cx; 
break; 


case SETDIRINFO : 

case GETDIRINFO : faetcpy (p->data, BUFFER, len = sizeof (DIR)); 

fstpcpy (p->hdr.naiie, BUFFER); 
break; 


case mUSER : 

case MKGROUP : fstpcpy (p->data, BUFFER); 

len = HAXUNAH; 
break; 

} 


if ((p = servercall (p, UTILS + r->SUBFUNC, len)) = WLL) 
return errcode; 
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switch (r->Sl»FUNC) 

{ 

case GETIJSRINFO : 
case GETGRPINFO : 
case GETWRIIFO : 
case GETUSRLIST : 
case GETGRPLIST : 

case GETUGRPS : ftetcpy (BUITOl, p->data, p->hdf.len); 

keak; 

case WUSER 

case HKGROUP : r->w.cx = |>->hdr.par1; 

break; 

} 

return OK; 


/* get user no. */ 
int runo (REGPK ss er) 
{ 

r->w.ax = uno; 
return OK; 


/♦ reaote login ♦/ 
int login (REGPK ss er) 

{ 

int code; 
if (log) 

return ELOGGED; 
if (dev_up () != 0) 
return EPORT; 

/« set int 62h to point to DOS */ 


dSi 

AOV 

ah.35h 

asi 

AOV 

al,21h 

asi 

int 

E1h 

asi 

AOV 

ax,es 

asi 

AOV 

ds,ax 

asi 

AOV 

dx,bx 

asA 

AOV 

ah,25h 

asA 

AOV 

al,DOSVECT 

asA 

int 

21h 

asA 

AOV 

ax,cs 

asA 

AOV 

ds,ax 


setserver (lf{_L0M6 (r->w.5i, r->w.di)); 

if ((code = rlogin (r->w.bx. BUFFER)) != OK) /* atteapt login */ 

{ dev_down 0; 
return code; 

> 


I* already logged in */ 

/♦ unable to open driver port ♦/ 
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log 

= 1; 


/* success */ 

as* 

*ov 

ah,19h 


as* 

int 

21h 


as* 

ftOV 

cur_drv,al 

/* initialize current drive */ 

as* 

*ov 

ah,Oeh 


as* 


dl,al 


as* 

int 

21h 


as* 

*ov 

n_drvs,al 

/« no. of logical drives 

as* 

MV 

ah,2Sh 


as* 

*ov 

al,21h 


as* 

*ov 

dx, offset DGROlFJrint 


as* 

ini 

21h 

/* 'switch on' redirector */ 

init_*ap 0; 
return OK; 


/* reset all drive lappings */ 


int logout (REGPK ss »r) 

{ 

int code; 

if (ilogl 

return ENLOGGED; 
if ((code = rlogoff ()) != OK) 
return code; 

log = 0; 

/* restore interrupt vectors »/ 


as* 

*ov 

ah,35h 

as* 

*ov 

al,DOSVECT 

as* 

int 

DOSVECT 

as* 

ftOV 

ax,es 

as* 

*ov 

ds,ax 

as* 

MV 

dx,bx 

as* 

MV 

ah,25h 

as* 

MV 

al,21h 

as* 

int 

DOSVECT 

as* 

MV 

ax,cs 

as* 

iOV 

ds,ax 


dev_dom (); /» close driver port *f 

return OK; 


/* L06STAT - return log status */ 
int rstat (REGPK _ss »r) 

{ 

r->u.ax = log; 
return OK; 



/* rdrq.c - retole directory requests «/ 


iinclude <dos.h> 
linclude (errno.h) 
iinclude "asa.Ii'' 
iinclude "intEl.h" 
iinclude "freq.h" 
iinclude "str.h" 
iinclude "rio.h* 
iinclude "rtp.h" 
iinclude "..\fs\fserrno.h" 

extern BVTE req_drv; 
extern char aap C261C323; 

char Cttr_dir C263C323; I* the current directory table »/ 


/♦ 3% - HKDIR ♦/ 

int rakdir (REGPK ss «r) 

{ 

register FREQ *p = 4pkt; 

if (pathaap (p->hdr.naae, BUFFER) = 0) 
return ENOPATH; 

return ( (servercall (p, MKDIR, 0) = NULL)? errcode s OK ); 

} 

/* 3ah - RHDIR */ 
int rradir (REGPK ss *r) 

{ 

register FREQ *p = 4pkt; 

if (pathaap (p-Midr.naae, BUFFER) = 0) 
return ENOPATH; 

return ( (servercall (p, RHDIR, 0) == NULL)? errcode : OK ); 

} 

/♦ 3bh - CKDIR */ 
int rchdir (REGPK _ss *r) 

{ 

register char *q; 
register FREQ »p = 4pkt; 

if (pathaap (p->hdr.naae, BUFFER) = 0) 
return ENOPATH; 

if ((p = servercall (p, CHOIR, 0)) = NULL) /♦ check if change is valid «/ 

return errcode; 

if ( *(q = strdiff (p->hdr.naae, aap [req_drv3)) = '\\') 

q++; 

fstpcpy (cur_dir Creq_drv3, q); /♦ update current directory table ♦/ 

return OK; 

} 



/* function 47h - gel current directory : handled locally ♦/ 
ini rgetdir (register REQPK ss ♦r) 

{ 

fslpcpy (FCP (r->BUFSEG, r->w,si), cur_dir [req_drv]); /* copy out frot table *{ 

return (K; 

} 


/♦ rfrq.c - renote file requests ♦/ 

iinclude <dos.h> 
iinclude <errno.h> 

Iinclude "asn.h" 
iinclude "intSl.h" 

Iinclude "freq.h" 

Iinclude "slr.h" 

Iinclude “rf.h" 

Iinclude "rie.h'' 

Iinclude "rtp.h" 

Iinclude "..\fs\fserrno.h" 

Mefine ninla.b) ( ( (a) < (b) )? (a) : (b) ) 

Idefine digitize(c) (((c) 4 0x5f) - ’A') 

extern BYTE req_drv, cur_drv; 

L_FILE s-fplab CHAXKD; /* renote file state nainlenance table */ 

int opendev (char <nane, int node); 
int lopen (char <path, int node); 
int Iclose (int hndl); 

LJILE ifalloc (void); 
int halloc (void); 

!* 3dh - OPEN */ 

int ropen (register REIPK ss ♦r) 

{ 

int code; 

register FREG *p = 4pkl; 
static char nane CMAXhWlEN] = 

fstpcpy (nane + 2, BUFFER); 

if ((code = opendev (nane, r-XCDE)) < 0) /♦ nake sure it is not a local device */ 

{ 

if (pathnap (p->hdr.nane, BUFFER) = 0) 
return ENOPATH; 

p->hdr.F_H[H)E = r->HDDE; 

if ((p = servercall (p, (PEN, 0)) = MULL) /» renole open *! 

return errcode; 

if ( (code = lopen (p->hdr.nane, r->MODE)) == -1) /* local open ♦/ 

return ENFILE; 


} 



r->RrtffiL = code; 
return OK; 

} 

/« check if file is a device, in which case it wist be opened locally ♦/ 
int opendev (char enaie, int wide) 

{ 

_m = 0x3d; 

_AL = wide; 

_DX = (unsigned) naae; 

geninterrupt (0x62); 

return ( (.FLAGS t OxD? -1 : AX ); 

} 

/* keep local records about the file for later reference */ 
int lopen (char «path, int wide) 

{ 

register int hndl; 
register LJILE ef; 

/* allocate an L.FILE structure to store state and get a handle frot DOS */ 
if ( (f = falloc"()) = NULL I! (hndl = halloc ()) = -1) 
return -1; 

fstpcpy (f->na»e, path); 
f->tode = aode; 
f->pos = OL; 
fptab ChndlD = f; 
return hndl; 

} 

/* allocate space to store state info for reaote files ♦/ 
static L FILE efalloc (void) 

{ 

static LJILE ftab CMAXF3; 
register LJILE *f; 

for (f = ftab; f < iftab CHAXF3; f++) 

if (f->nhndls == 0) /♦ find an unused entry */ 

return {f->nhndls = 1, f); 

return NULL; 

} 

/* get a handle for the file : fro* DOS to avoid clashes */ 
static int halloc (void) 

{ 

_AH = 0x45; 

_BX = 2; /* DUP the stderr handle */ 

geninterrupt (0x62); 

return ( (.FLAGS i OxD? -1 s _AX); 

} 


/* save state info */ 

/« keep track of L.FILE through the handle */ 
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/* 3eh - CLOSE ♦/ 
int rclose (register REQR( ss *r) 

{ 

register FREQ ep = 4pkt; 

fstpcpy (p->h(lr.na»e, fptab Er->iM)L3->na»e); 
servercall (p, CLOSE, 0); 
return ( Iclose (r->HNDL) ); 

) 

/* 3fh - READ */ 
int rread (REGPK _ss *r) 

{ 

register FREQ ♦p = 4pkt; 

LJILE *( = fptab Cr->HNDL]; 
register unsigned i = r->LEN; 
unsigned n; 

char far Jbuf = BUFFER; 

if ( f->»ode 4 0x1 ) /* access tode checked locally ♦/ 

return EACCES; 

fstpcpy (p->hdr.na*e, f->na»e); /« retreive state */ 

p->hdr.pos = f->pos; 

do { 

p->hdr.F_CNT = n = tin (i, FMAXDAT); 

if ((p = servercall (p, READ, 0)) == NULL) 
return errcode; 

fieacpy (buf, p->data, p->hdr.F_CNT); 

i -= p->hdr.F_CNT; /» update count and buffer position */ 

buf += p->hdr.F_CNT; 

} while (p->hdr.F_CNT = n 44 i > 0); 

f->pos = p->hdr.pos; /* save state ♦/ 

r->CNT = r->LEN - i; 
return OK; 


/* 40h - WRITE */ 
int rwrite (REGPK _ss *r) 

{ 

register FREQ «p = 4pkt; 

LJILE ♦f = fptab Cr-XilDL]; 
register unsigned i = r->LEN; 
unsigned n; 

char far *buf = BUFFER; 

if ( (f->Mde 4 0x3) = 0 ) 
return EACCES; 

fstpcpy (p->hdr.naae, f->naae); 
p->hdr.pos = f->pos; 


/* get naae */ 

/♦ reaote close »/ 
/* local close */ 



} 


do { 


l^>hdr.FjHT = „ = 


■*'' (if f^XOfiT); 


fteicpy {p->dala, buf, p->hdr.F_CNT); 


if ((p = servercall (p, WRITE, p->hdr.F_CNT) ) = NHL) 
return errcode; 

i -= p-Midr.FJNT; 
buf += p->hdr.F_CMT; 

) while (p->hdr.F_CNT = n ii i > 0)j 


f->pos = p->hdr.po5; 
r->CNT = r->LEN - i; 
return OK; 


/♦ 41h - DELETE ♦/ 
int rdel (REGPK ss *r) 

{ 

register FREQ «p = dpkt; 

if {r->FUNC = 0x13) 

fcbtap (p->hdr.nate, BUFFER); 
else 

if (pathtap (p->hdr.naie, BIFFER) = 0) 
return ENOPATH; 

return ( (servercall (p, UNLINK, 0) = NULL)? errcode : OK ); 

} 

/* 56h - RENAME */ 

int rrenaie (register REGPK ss er) 

{ 

int drv; 

register FREQ *p = 4pkt; 

drv = ( *(FCP (r->w.es, r->w.di) + 1) = )? 

digitize ( «FCP (r->w.es, r->w.di) ) ! cur_drv; 
if (drv != re(i_drv) 

return ENOTSAM; /* not sake drive ♦/ 

if (pat)«ap (p->hdr.naie, BUFFER) - 0 !.' 

pathkap (p->data, FCP (r->w.es, r->w.di)) = 0) 
return ENOPATH; 

return ((servercall (p, RENAME, WXNAMLEN) = NHL)? errcode : OK); 

} 


int rfcbrenate (REGPK ss *r) 

{ 

register FREQ »p = 4pkt; 

. fcbkap (p-Midr.naie, BUFFER); 



) 


fcbMp (r>(lata, BUFFER + 17); 

return ( (servercall (p, RENAME, HAXNAMLEN) = NULL)? errtode : OK); 


ini rioctl (REGPK ss *r) 

{ 

switch (r->b.al) 

{ 

case 0x0 s r->w.dx = re(j_drv; 

return OK; 

case 0x6 : 

case 0x7 : r->b.al = Oxff; /* always ready */ 

return OK; 

default : return EINVFNC; 

} 

} 


/* GREAT, CREATNEW */ 

int rcreat (register REGPK _ss *r) 

{ 

int code; 

register FRE6 *p = ipkt; 

p->hdr.F_ATTR = r->ATTR; 
if (pathnap {p->hdr.na»e, BUFFER) = 0) 
return ENOPATH; 

if ((p = servercall (p, (r->FUNC = 0x3c)? GREAT : GREATNEH, 0)) = NULL) 
return errcode; 

if ( (code = lopen (p-Mtdr.nate, 2)) = -1) /* open locally */ 

return EMFILE; 
r->R)ifl)L = code; 
return OK; 

> 

/* GREATTEMP «/ 

int rcreatteap (REGPK _ss *r) 

{ 

register FREG *p = 4pkl; 
int code; 
char <tail; 

p->hdr.F_ATTR = r->ATTR; 
if (patimp (p->hdr.naae, BUFFER) ~ 0) 
return ENOPATH; 

tail = (char near *) slrend (p->hdr.na»e); 

if ((p = servercall (p, GREATTEMP, 0)) = NILL) 
return errcode; 



if ( (code = lopen (|>->hdr.n<uH,- 2)) = -1) 
return DflLE; 
r->RHMDL = code; 

fslpcpy < slrend (RfFER), tail); /« return coaplete naae »/ 

return OK; 

} 

/* CHMOD, GEfflOD *! 

int rtod (register REGPK ss »r) 

{ 


register FREQ *p = 4pkt; 

if (patbup (r>ttdr.na«e, BUFFER) = 0) 
return ENOPATH; 
p->hdr.F_ATTR = r->Arnt; 

if ((p = servercall (p, (r->SUBFl)M: = OxD? CHKffl : GETWD, 0)) = NULL) 
return errcode; 

r->ATTR = p->hdr.F_AnR; 
return OK; 

} 

/♦ DATE, TINE */ 

int rdt (register REGPK _ss er) 

{ 

register FREQ «p = 4pkt; 

fstpcpy (p->hdr.naie, fptab Cr->H)fflL3->naae); 

*( (unsigned *) p->data ) = r->TIME; 

♦( (unsigned *) p->data + 1 ) = r->DATE; 

if ((p = servercall (p, (r->SUBFUNC = OxD? SETDT : GETDT, 2 * sizeof (int))) = IWi) 
return errcode; 

r->TlME = *( (unsigned *) p->data): 
r->DATE = *( (unsigned ♦) p->data + D; 
return OK; 

} 

/» 42h - SEEK */ 

int rseek (register REGPK _ss *r) 

{ 

FREQ *p = ipkt; 

register long *po5p = ifptab Cr->H®L»pos; 

switch (r->b.al ) 

{ 

case 0 ! *posp = OFFSET; 
break; 

case 1 i *posp += OFFSET; 
break; 


/* position specified frois ♦/ 
/* start of file ♦/ 

/* current position »/ 



case 2 : fslpcpy (p-Midr.nate, fplab [r->tifl)L3->naie); /* end of file ♦/ 

if ({p = servercall (p, FLEN, 0)) = NULL) /♦ get file length */ 

return errtode; 

♦posp = p->hdr.pos + OFFSET; 
break; 

default : return EINVFNC; 

} 

r->w.dx = (unsigned) ((unsigned long) »posp » 16); 
r->u.ax = (unsigned) ♦posp; 
return OK; 

} 

/♦ 5ch - LOCK ♦/ 
int rlock (REffK ss fr) 

{ 

FRE& *p = ipkt; 


} 


fstpcpy (p->hdr.naM, fptab [r->HNDL3->na*e); 
p->hdr.pos = MK LONG (r->¥.cx, r->u.dx); 

♦dong ♦) p->daia = N{_L0N6 (r->w.si, r->u.di); 

return ( (servercall (p, (r->SlfflFUNC)? UNLOCK : LOCK, sizeof (long)) = NULL)? 
errcode s OK); 


/♦ 45h - DUP : local ♦/ 
int rdup (REGPK ss ar) 

{ 

register int hndl; 

if ( (hndl = halloc 0) == -1) /eallocate a handle ♦/ 

return EMFILE; 

( fptab ChndlT = fptab [r->HNDL] )->nhndls++; 
return OK; 


> 

/♦ 46h - COUP : local ♦/ 
int rcdup (REGPK _ss ar) 

{ 

if (r->u.cx >= NAXH) 
return EMFILE; 

Iclose (r->#.cx); 

( fptab Cr->u.cx3 = fptab Cr->HNDL3 )->nhndls++; 
return OK; 

} 

/♦ close locally ♦/ 

int Iclose (register int hndl) 

{ 

if ( hndl < mXH ti fptab Chndl] != NULL ) 

{ 

fptab Chndll->nhndls“; 
fptab Chndl] = NULL; 

} 



} 
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= 0x3f; 

_BX = hndl; 

geninlerrupt (0x62); 

return ( (_FLAffi i OxD? EBAIF : OK); 


/♦ rsrq.c - retote search requests */ 

iinclude <dos.h> 
iinclude <dir.h> 

Iinclude <errno.h> 
iinclude "asa.h" 
iinclude "intEl.h" 
iinclude "freq.h* 
iinclude "str.h" 
iinclude "rio.h" 
iinclude ”r*p.h'' 
iinclude "..\fs\fserrno.h" 

idefine INFOSIZE sizeof (struct mik) 

/* no. of buffers to hold search info : depends on aftount of data that can be sent in one go */ 
idefine l®UFS ((FMAXDAT / INFOSIZE) - 1) 

extern BYTE req_drv; 
extern char far *dta; 

static struct ffblk sbuf CNBUFST; /♦ the search info buffer */ 

static struct ffblk es; /* pointer to info in buffer »/ 

static int n; /« no. of latching files retaining »/ 

void xlate (struct ffblk es, int is_xfcb); 

struct _fcb /* unopened FCB returned by functions 11h,12h */ 

{ 

char drive; 
char naieCS]; 
char extC33; 
char attr; 
char resvdEIOl; 
unsigned tiie; 
unsigned date; 
unsigned sen; 
long filsize; 

>; 

struct xfeb /♦ unopened extended FCB ♦/ 

{ 

char flag; 
char resvdCSl; 
char attr; 
struct feb feb; 

}? 
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/» 4eh, 4fh - search with ASCIIZ paths */ 
int rsearch (RES^ ss tr) 

{ 

register FREQ *p = ipktj 

switch (r->FUNC) 

{ 

case Ox4e : p->hdr.F_ATTR = r->ATTR; 

p->hdr.F_NBUF = JfflUFS + 1? 
if (pathup (p->hdr.naie, BUFFER) = 0) 
return EMOPATH; 

if ((p = servercall (p, SEARCHF, 0)) = NULL) H first tatchCes) ♦/ 

return errcode; 

break; 

case 0x4f ! if (n > 0) /* if buffer not etpty, copy out fro* it */ 

{ 

ftencpy (dta, (char far ») s++, INFOSIZE); 

♦dta = req_drv + 1; 
n— ; 

return OK; 

} 

it (s < isbuf CNBUFSD) /« no tore files ♦/ 

return ENOFILE; 

p->hdr.F_NBUF = ®UFS + 1; 
ep->hdr.naie = ’\0’; 

fMicpy ( p->data, (char far ♦) isbuf CNBUFS - 13, INFOSIZE); 
if ((p = servercall (p, SEARCHN, INFOSIZE)) = NULL) /*get next latches ♦/ 

return errcode; 

break; 

default ; return EINVFNC; 

} 

fieicpy (dta, p->data, INFOSIZE); /* first info copied out to user ♦/ 

♦dta = req_drv + 1; 

/♦ the rest goes into the buffer ♦/ 
s = (struct ffblk near ♦) 

faeicpy ( (char far ♦) sbuf, (char far ♦) ((struct ffblk ♦) p->data + 1), 

(n = p->hdr.F_NBUF - 1) ♦ INFOSIZE ); 

return OK; 

} 

/♦11h,12he/ 

int rfcbsearch (REGPK ss er) 

{ 

register FREQ ♦p = 4pkl; 

register int is^xfcb = ( aBUFFER — -1 ); /♦extended FCB specified? ♦/ 



; jr 

switch (r->fUNC) 

{ 

case 0x11 : r>W'’.F ATTR = (is.xfcb)? *(BUFFER + 6) : 0; 

p->hdr.FlNBUF = NBl^ + 1; 
fcbwp (p->hdr.naK‘, BUFFER); 

if ((p = servercall (p, SEWCHF, 0)) = NULL) 
return 1; 

break; 

case 0x12 : if (n > 0) 

{ 

xlate (s++, is_xfcb); /* copy out to user */ 

n— ; 

return OK; 

} 

if (s < isbuf LNBUFS]) 
return ENOFILE; 

p->hdr.F_NBUF = fffiUFS + 1; 

»p->hdr.na»e = ’\0’; 

fteicpy (p->data, (char far *) Jsbuf LNBUFS - 13, INFOSIZE); 
if ((p = servercall (p, SEARCH!, HFOSIZE)) == MULL) 
return 1; 

break; 

default ! return EINVFNC; 

} 

xlate ( (struct ffblk ♦) p->data, is_xfcb); 
s = (struct ffblk near ♦) 

ftencpy ( (char far *) sbuf, (char far *) ((struct ffblk ♦) p->data + 1), 

(n = p->hdr.F_NBUF - 1) > INFOSIZE ); 

return OK; 


/* parse search info into the FCB at the current DTA ♦/ 
void xlate (register struct ffblk *s, int is xfcb) 

{ 

struct _fcb far *f = (struct _fcb far ♦) dta; 

if (is_xfcb) 

{ 

( (struct _xfcb far *) f)->flag = -1; 

( (struct xfcb far *) f)->attr = s->ff_attrib; 
f = S( ( (struct _xfcb far ♦) f)->fcb); 

} 

tofcb ((struct fcb far »)f, s->ff_naie); 

f->filsize = s->ff_fsize; 

f->dale = s->ff_fdale; 

f->tiM = s->ff_ftiM; 

f->atlr = s->fraltrib; 

f->drive = req_drv ♦ 1; 



/* pclan.h - PC-iAN fraw declarations «/ 


lifndef PCUW H 
•define PCLANJ 


•define MAXPKTLEN 255 


struct ptcthdr /« the packet header ♦/ 

{ unsigned char dest; 
unsigned char ctrl; 
unsigned char src; 
unsigned char type; 
unsigned int len; 

>? 


•define PHXILEN 

•define PmXDAT 


sizeof (struct pkthdr) 
(MAXPKTLEN - PHDfiia) 


typedef struct 
{ 

struct pkthdr hdr; 
unsigned char data CPMAXDAT]; 
} PACKET; 


•define IP 9 

•define HYBCAST Oxff 

•define HYGATEHAY 0 


•endif 


/♦ buf.h - declarations for buffer lanageuent */ 

•ifndef BUF_H 
•define BUF_H 

•include "pclan.h" 

•include <stddef.h> 

typedef struct buffer 

{ PACKET pkt; /« the actual buffer */ 

int status; /* whether the buffer is free or reserved ♦/ 

struct buffer *next; 

} BUFFER; 


•define 4 

•define B FREE 0 
•define bIrSVD 1 

PACKET eallocp (void); 
void freep (PACKET ♦p); 


•endif 



/• q.h - declarations for queue unageient ♦/ 


litndef e_H 
•define G_H 

•include “pclan.h" 

•include “buf.h" 

•include <stddef.h> 

typedef struct 

{ BWTER ahead; /a pointer to the packet at the head of the queue a/ 

BUFER atail; /a pointer to the one at the tail a/ 

> 6 ; 

•define iseapty(q) {(q)->head = NULL) 

void enque (0 aq, PACKET ap); 

PACKET adeque (Q aq); 

•endif 


/a port.h - declarations for port unageient a/ 


•ifndef PORT H 
•define PORTJ 


♦include "pclan.h" 
•include "q.h" 


typedef struct 
{ 0 q; 

int status; 
int duHty; 

} PORT; 

•define NPORTS 4 


/a the port queue a/ 

/a status of this port : free or reserved a/ 

/a just to round off the size to 8 bytes (ukes randoa access easier) a/ 


•define P FREE 

0 

•define PJSVD 

1 

•define NTRIES 

Ox40000L 

♦define »(YP0RT 

Oxffff 

•define pvalid(n) 

((n) < NPORTS 


/a no. of retries for precv a/ 
id portC(n)3.status = PJSVD) 


int psend (unsigned pno, PACKET ap); 
PACKET aprecv (unsigned pno); 
int pstat (unsigned pno); 
int popen (unsigned pno); 
void pclose (unsigned pno); 
void pclear (unsigned pno); 


•endif 



/* udp.h - declarations for UDP */ 

fifndef IfflP H 
fdcfine UDPJ 

•include "ip,h" 

struct udpltdr 

{ unsigned int sport; 
unsigned int dport; 
unsigned int len; 
unsigned int chksuk; 

>; 

•define UHDRLEN sizeof (struct udphdr) 

•define UMAXDAT (IHAXDAT - UHDRLEN) 

struct udp 

{ struct udphdr bdr; 

unsigned char data CUHAXDAT]; 

}? 

typedef struct 
{ IPADDR fhost; 

unsigned int fport; 
unsigned int Iport; 

} UDPCONN; 

struct phdr /♦ the W)P pseudo-header */ 

{ IPADDR src; 

IPADDR dest! 
unsigned char zero; 
unsigned char prot; 
unsigned len; 

}; 


•define UDPPTR(p) ((struct udp *) IPPTR (p)->data) 

int udpsend (UDPCONN eu, PACKET *p, int datlen); 
int udpdekux (PACKET *p, int len); 

•endif 


/♦ ip.h - declarations for IP */ 

•ifndef IP_H 
•define IP_H 


•include "pclan.h" 
typedef long IPADDR; 


/* internet address «/ 



ilrucl iphdr 

{ unsigned char ver_hlen; 

unsigned char srvclyp; 
unsigned int len; 
unsigned int id; 


unsigned int frag; 
unsigned char ttl; 
unsigned char prot; 
unsigned int chksua; 


IPADDP 

src; 


IPADDR 

dest; 


}; 



♦define 

IHDftLEN 

sizeof (struct iphdr) 

♦define 

INAXDAT 

(PHAXDAT - IlfflRtfN) 

struct ip 




{ struct iphdr hdr; 

unsigned char data [IHAXDATD; 

}; 


tdefine 

IVER HLEN 

tdefine 

ISRVCTYP 

tdefine 

IFRAG 

tdefine 

ITTL 

tdefine 

UDP_PR0T 

tdefine 

IPPTR(p) 

tdefine 

getnet(addr) 

tdefine 

getnode(addr) 


0x54 /* byte swapped */ 

0 
0 

Oxff 
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{(struct ip *) p->data) 

((addr) d OxfffO) 

((unsigned char) (addr)) 


int ipsend (IPfffiDfi thost, PACKET ap, int datlen); 
int ipdeuux (PACKET ap, int len); 

tendif 


/* dev.h - declarations for the network driver interface *! 


struct cblk 

/* the device control Hock */ 

{ 

long fhost; 

/♦ foreign internet address »/ 


int fport; 

/* foreign port no. ♦/ 


int Iport; 

/* local port no. »/ 


int ack; 

!* acknowledgaent expected </ 


void far axhuf; 

/* data to be sent ♦/ 


void far *rbuf; 

/* buffer to hold received data */ 


}; 


"NET" /* the device driver naie */ 


tdefine DEV 



I4< 


jpclan.inc - PC-LAN declarations 

NAXPKTLEN equ 255 

phdr slruc • packet header 

dest db ? 

Ctrl db ? 

src db ? 

type db ? 

len dv ? 

phdr ends 

iphdr struc 

db 12 dup (?) 
ip src dd ? 

dd ? 

iphdr ends 

udphdr struc 

udp_sport 
udp_dport 
udp_len 

udphdr ends 


PHDRLEN 

equ 

type phdr 

IHDRLEN 

equ 

type iphdr 

UHDRLEN 

equ 

type udphdr 

PMAXDAT 

equ 

HAXPKTLEN - PHDRLEN 

WttXDAT 

equ 

NAXPKTLEN - PHDRLEN - IHDRLEN - UHDRLEN 

packet struc 


db 

PHDRLEN dup (?) 


db 

IHDRLEN dup (?) 


db 

UHDRLEN dup (?) 

data 
packet ends 

db 

UHAXDAT dup (?) 

udpconn struc 

fhost 

dd 

? 

(port 

d« 

? 

Iport 
udpconn ends 

d« 

? 

(miN 

equ 

type udpconn 

IHSR 

equ 

PHDRLEN 

UHDR 

equ 

IHDR + IHDRLEN 


du ? 

dv ? 

d« ? 

dw ? 



juc.inc - swe useful ucros 


fwshall ucro 

push ax 
push bx 
push cx 
push dx 
push es 
push ds 
push si 
push di 
push bp 
pushf 

ends 

popall sacro 

popf 
pop bp 
pop di 
pop si 
pop ds 
pop es 
pop dx 
pop cx 
pop bx 
pop ax 

ends 


aoveit »acro 



local 

iseven 


shr 

cx,1 


jnc 

iovsb 

iseven 

iseven! 

ends 

rep 

sovsv 

stk_suilch 

Aacro 

los 


AOV 

word plr old_slk + 2,ss 


AOV 

word ptr old_stk,sp 


AOV 

ax,ds 


AOV 

ss,ax 


AOV 

eoifal 

sp, offset DGROUPUos 

stk_reslore 

Aacro 



AOV 

ss.wrd ptr old_stk + 2 


AOV 

endA 

spiuord ptr old_stk 

old_stk_ptr 

Aacro 


old_stk 

dd 

en(bi 

7 



/♦ buf.c - Buffer aanageient routines ♦/ 

•include "buf.h" 

sialic BUFFER bufpoolfNBlFS]; /* the actual buffer pool */ 

PACKET eallocp (void) /* return a pointer to a free packet buffer */ 

{ 

register BUFFER eb; 

for (b = bufpool; b < tbufpoolCIffiUFS]; b++) 
if (b->slatus = B_FRE) 

{ b->status = B RSVD; 
return (PACKET *) b; 

) 

return NULL; 

} 

void freep (PACKET ♦p) /* free the packet buffer allocated by allocp */ 

{ 

if (p != NULL) 

((BUFFER ») p)->slatus = B_FRE; 

) 


/* q.c - Queue Mnageient routines ♦/ 

•include "q.h" 

•include <dos.h> 


void enque (register Q *q, PACKET *p) /* adds p to the tail of q *I 

{ 

register BUFFER »b = (BUFFER *) p; 

if (q = NULL) 
return; 

if (isetpty (q)) 

q->head = b; 

else 

q->tai l->next = b; 

(q->tail = b)->next = NULL; 

} 


PACKET *deque (register Q *q) 

/* retoves the packet at the head of the queue and returns a pointer to it */ 
{ 

register BUFFER *b; 


if (q = NULL !! iseipty (q)) 
return NULL; 



disableO; 

q->hfad = (b * q->head)->next; 
enabteO,* 

return (PACKET ♦) bj 

} 


/♦ port. c - port sanageient routines */ 

♦include "port.h" 

static PORT portCNPORTST; 

int psend (unsigned pno, PACKET *p) 

/« send a packet to a port, returns 0 on success *! 
{ 

if (Ipvalid (pno)} 
return -1; 

enque (tportCpnoT.q, p); 
return 0; 

} 


PACKET «precv (unsigned pno) 

/* read a packet froa a port 

* returns a pointer to it or NULL if no packets are pending 

♦ tries NTRIES tiaes before giving up */ 


{ 

register G *q; 
register PACKET *p; 
unsigned long i; 

if (Ipvalid (pno)) 
return NULL; 

if ((p = deque (q = iportCpnoT.q)) != NWl) 
return p; 

for (i = NTRIES; iseapty (q) U i; i— ) 


return (i? deque (q) : NULL); 

} 


int popen (unsigned n) 

/* open a port, returns port no. or -1 for error 
* n = port no. desired or ANYPORT if any port acceptable ♦/ 

{ 

register int i; 
register PORT *p; 




if (n < IfORTS U porlCnD. status - P_FREE) 

{ portCnLstatus = P_RSW); 
return n; 

} 

else if (n = ANYPflRT) 

{ for (i = 0, p = port; i < NPORTS; i++, p++) 
if (p->status = P FREE) 

{ p->status = PJSW; 
return i; 

) 

} 


return -1; 


void pclose (unsigned pno) 

/* close a previously opened port */ 

{ 

if (pvalid (pno)) 

{ pclear (pno); 

portCpno]. status = P_FREE; 

} 

) 


int pstat (unsigned pno) 

/* port status - invalid : -1, eipty queue : 0, else s 1 */ 

{ 

return ( (ipvalid (pno))? -1 

: isetpty (&portCpno].q)? 0 
: 1 ); 

} 


void pclear (unsigned pno) 

/> clear all packets pending at a port */ 

{ 

register 6 eq; 
register PACKET ap; 

if (Ipvalid (pno) II isetpty ((q = iportCpnoT.q))) 
return; 


} 


ivhile ((p = deque (q)) != NULL) 
freep (p); 


/* reiove each packet */ 
/* and free its buffer ♦/ 


/* udp.c - UDP datagrai sending and denultiplexing routines ♦/ 

linclude "udp.h" 
tinclude "port.b" 



if (n < MPORTS U portCnl.sUtus = P_FRE) 
{ fwrtCn]. status = P_RSVD; 
return n; 

} 


else if (n == AKYPORT) 

{ for (i = 0, p = port; i < NPORTS; i-H, p++) 
if (p->status = P_FREE) 

{ p->statu5 = P_RSVD; 
return i; 

} 


} 


return -1; 

} 


void pclose (unsigned pno) 

/♦ close a previously opened port */ 

{ 

if (pvalid (pno)) 

{ pclear (pno); 

portCpnoD. status = P_FREE; 

} 

} 


int pstat (unsigned pno) 

/« port status - invalid ! -1, e»pty queue '■ 0, else s 1 */ 

{ 

return ( (! pvalid (pno))? -1 

: iseupty (SportCpnol.q)? 0 
: 1 )! 

} 


void pclear (unsigned pno) 

/* clear all packets pending at a port */ 

{ 

register 0 *q; 
register PACKET ap; 

if (!pvalid (pno) li iseuply ((q = iportCpnoT.q))) 
return; 


} 


vhile ((p = deque (q)) != NULL) 
freep (p); 


/* reiove each packet */ 
/* and free its buffer ♦/ 


/♦ udp.c - (fflP datagra* sending and deaultiplexing routines */ 

linclude "udp.h" 
iinclude "port.h" 



linclude "netul.h' 


static struct phdr phdr = {0, 0, 0, lfflP_PR0T, 0); /» the pseudo-header */ 

int udpsend (IWCONN * 0 , PACKET •p, int datlen) 

{ 

register struct udp *udpp = IfflPPTfi (p); 
register int udplen = ui^LEN -r datlen; 

IPPTR (p)->hdr.prol = W)P_PROT; 
udpp->hdr. sport = bswap (u->lport); 
udpp->hdr.dport = bswap (u->fport); 

if (udplen i 0x1) 

((char ») udpp)Cudplen] = '\0'; 

phdr.len = udpp->hdr.len = bswap (udplen); 

/* code to be included if checksui is to be calculated : 

* phdr.src = ayaddr; 

« phdr.dest = Iswap (u->fhost); 

* 

* udpp->hdr.chksui = chksua ((int *)4phdr, sizeof (struct phdr) » 1); 

♦ udpp->hdr.chksut = ''chksua ((int «)udpp, (udplen + 1) » 1); 

*/ 

udpp-Midr.chksut = 0; 

return (ipsend (u->fhost, p, udplen)); 


int udpdeaux (PACKET «p, int len) 
{ 


register struct udp ^udpp = UDPPTR (p); 
unsigned xsua; 

if (len != bswap (udpp->hdr.len)) 
return 1; 

if ((xsui = udpp->hdr.chksut) != 0) 

{ if (len & 0x1) 

((char ♦) udpplClen] = '\0'; 
phdr.src = IPPTR (p)->hdr.src; 
phdr.dest = IPPTR (p)->hdr.dest; 
phdr.len = udpp->hdr.len; 

udpp->hdr.chksu« = chksu* ((int »)4phdr, sizeof (struct phdr) » 1); 
if ((udpp->hdr.chksut = 'chksua ((int tludpp, (len + 1) » D) != xsua) 
return 1; 


} 


return (psend (bswap (udpp->hdr.dport), p)); /* enque at the specified port */ 



/» ip.c - IP datagrai sending and detultiplexing routines */ 

♦include "ip.h" 

♦include "udp.h" 

♦include "net.h" 

♦include "buf.h" 

♦include “netut.h" 

♦include “strtoip.h" 

static unsigned int ipid = 0; /< the datagrai sequence nuiber *! 

IPADOR lyaddr; /* local internet address (network byte order) */ 

IPftWDR lynet; /* network internet address (host byte order) ♦/ 

int ipsend (IPADDfi fhost, register PACKET *p, int datlen) 

{ 

register struct ip «ipp = IPPTR (p); 

p->hdr.type = IP; 

ipp->hdr.ver hlen = IVER HLEN; 

ipp->hdr.srvctyp = ISRVCTYP; 

ipp->hdr.len = bswap (IlfflRLEN + datlen); 

ipp->hdr.id = bswap (ipid++); 

ipp->hdr.frag = IFRAG; 

ipp->hdr.ttl = ITTL; 

ipp->hdr.chk5u» = 0; 

ipp->hdr.src = tyaddr; 

ipp->hdr.dest = Iswap (fhost); 

ipp->hdr.chksui = 'chksut ((int ♦)ipp, IHDRLEN » 1); 

return (send (fhost, p, IHDRLEN + datlen)); 

} 


int ipdetux (PACKET *p, int len) 

{ 

register struct ip sipp = IPPTR (p); 
register unsigned xsui; 

if (len != bswap (ipp->hdr.len) I! ipp->hdr.ver_hlen != IVER_HLEK) 
return 1; 

xsifli = ipp->hdr.chks(ai; 
ipp->hdr.chksui = 0; 

if ((ipp->hdr.chksui = 'chksui ((int *)ipp, IHDRLEN » D) != xsiMi) 
return 1; 

if (ipp->hdr.frag != 0) 
return 1; 

switch (ipp-Midr.prot) 

{ 

case UDP_PR0T : 

return (udpdetux (p, len - IHDRLEN)); 
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} 


default : 

return 1; 


int setaddr (char far es) 

{ 

if ((tyaddr = strtoip (s)) = 0) 
return 1; 

■ynet = getnet (Isuap (ayaddr)); 
return 0; 

} 


/* net.c */ 


iinclude "ip.h" 
iinclude "netut.h" 


int netoul (PA(3{ET *p); 
extern IPADDfl aynet; 


/* send a cotplete IP datagra* as a PC-LAN fraw ♦/ 
int send (IPADDR fhost, PACKET ep, int len) 

{ 


if (len > PHAXDAT) 
return 1; 


/•fill in the PC-LAN header.*/ 

p->hdr.dest = (fhost = aynetl? MYKlfiT 

:(getnet (fhost) = nynet)? getnode (fhost) 

:HYGATEMAY; 
p->hdr.len = bswp (len): 


} 


return (netout (p)); 


/» urite to the IMP card ♦/ 


/* PC-LAN packet deauliplexing - called by netin right after a cotplete packet has been received *i 
int deaux (register PACKET »p) 

{ 

register int len; 

if (den = bswap (p->hdr.len)) = 0) 
return 1; 

switch (p->hdr.type) 

{ 

case IP ! 

return (ipdeaux (p, len)); 
default : 

return 1; 

} 

} 



/i strtoip.c - routine for converting strings like "192.0.0.4" to internet addresses in network byte order */ 


long strtoip (char far «s) 

{ 

union 

{ long 1; 

unsigned char cC43; 
}u; 


unsigned char c, oa = u.c; 
int i = 3, n = 0; 


for (;;} 

{ switch (c = *s++) 

{ case M' : 
case ’2’ : 
case ’3’ : 
case '4' : 
case '5' : 
case '6* : 
case 7* : 
case 'S' ; 
case '9' : 

case ‘O' : n = 10 * n + c - 'O' ; 

break; 

case : if (n > 255 5! i~ = 0) 

return OLj 


»a++ = n; 
n = 0; 
break; 


default : if (n > 255 !1 i != 0) 

return OL; 

*a = n; 
return u.l; 


;pclan.asi - PC-LfiN interface routines 

_TINY_ equ 1 

include rules.asi 
include pclan.inc 
include uc.inc 

3wait nacro bit jwait till status bit set 

local wwt 
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«nfl! in il.dx 
Md al ,ibit 

jz wt 

enii 


dnetout ucro 

MV 

MV 

out 

endi 


portjbyt 

dx,&port 

al.byte ptr ibyt 
dx,al 


LMffiATA e<iu 
UVfCSR equ 

340h 

34ah 

;data i/o port 

{control and status register 

1 L ; ♦ - 




LHrfLwK olvS 

TXBF 

equ 

80h 

{transRit buffer full 

EXPB 

equ 

20h 

{expecting a byte 

IBE 

equ 

lOh 

{input buffer etpty 

SPEC 

equ 

40h 

{Special byte frot card 

NEU 

equ 

01h 

{new packet 

PCMD 

equ 

02h 

{treat the next bytes as coHands 

RTS 

equ 

Olh 

{request to send 


(trails 

struc 

du ? 

{ bp 



d« ? 

} ip 


pari 

dv ? 


l^arafts 

ends 



par 

equ 

[bp] 



Headers 


CSegS 


_txrdy 


proc ni 


ftUV 

dx,LANCSR 


in 

al,dx 


and 

alJXBF 


ret 


_txrdy 


endp 

_netout 

proc 

near 


push 

bp 


»nv 

bp.sp 


push 

si 


push 

di 


;inl Ixrdy (void) 

; returns 0 if ready 


;int netout (void ^packet) 

jvrite a coaplete packet to the card, returns 0 for success 



is 


MV k.UMCSS 

MV ii.Umifi 

MV (iX,bX 

MV sijOffffh 

«0: in al,dx 

and alJXBF 

jz «1 

dec si 

jnz wO 

MV ax,1 

jnp short abort jtransnit buffers full - abort 

wl: ^etout bXfPCW 

await IfiE 

anetout di,RT5 

await IBE 

anetout bx,0 

await EXPB 

MV si, par. part 

cld 

% 

await IBE 

lodsb ;dest 

MV dx,di 

out dx,al 

await IBE 

inc si ;ctrl 

inc si ;src 

lodsb ;type 

MV dx,di 

out dx,al 

await IBE 

inc si ;len (hi) 

lodsb ;len (low) 

MV dx,di 

out dx,al 

MV cl, a) 

xor ch,ch 

jcxz exit ; zero length packet 

wE: await IBE 

lodsb 

Hv dx,di 

out dx,al 

loop wE 


{write data l^les 



»xit : 

xor 

ax, ax 

16 ' 

abort: 

jwp 

di 



pop 

si 



pop 

bp 



rtt 



_nelout endp 




_nel_in 

proc far 

;ISfi for packet reception fro« the card 

push 

ax 

push 

ds 

iOV 

ax,cs 

mv 

ds,ax 

push 

bx 

push 

dx 

ftOV 

dx,LM;SR 

in 

al,dx 

and 

al.S’EC 

jz 

ord 

iOV 

dx.LATOATA 

in 

al,dx 

cup 

a],iEU : check if new packet 

je 

niO 

jtp 

near ptr endit 

niO: BOV 

ax,rbuf 

or 

ax, ax 

jnz 

nil 

push 

cx 

push 

es 

call 

near ptr _allocp {allocate a packet buffer 

pop 

es 

pop 

cx 

or 

ax, ax 

jz 

endit 

BOV 

rbuf ,ax 

nil! BOV 

p,ax 

BOV 

cnt,PHDRLEN 

BOV 

ishdr,! {reading in the header 

jip 

short endit 

ord : 

BOV 

dx,LANDATA 

in 

al.dx {get byte fro« card 

BOV 

bx,p 



ir 


over ! 


ni2! 


or 

bx,k 


jz 

endit 


•0¥ 

Cbx:],al 

jstore lyte 

IRC 

P 


dfc 

cnl 


m 

endit 


Ctp 

ishdr,0 


je 

over 


dec 

bx 


•ov 

ax,Ebx] 


xchg 

ah,al 

,‘ 9 et length of packet froi header 

iOV 

cnt,ax 


iOV 

ishdr.O 

;no« reading in the data 

j«P 

short endit 



stk_sfitch int_tos 



push 

cx 



push 

es 



push 

rbuf 



call 

near ptr _de»ux 

;try to 

send the packet to where it ought to go 

or 

ax, ax 



jz 

ni2 



call 

near ptr _freep 

; nobody 

wants it - I don't either; so free it 

inc 

SP 



inc 

SP 



pop 

es 



pop 

cx 




stk_reslore 


kOV 

rbuf,0 

aov 

p,0 

endit : cli 


kOV 

al,20h 

out 

20h,al 

pop 

dx 

pop 

bx 

pop 

ds 

pop 

ax 

iret 


_net_in 

endp 

CSe^ndS 


DSegS 


rbuf 

dw 


; EOl lo Ihe 8259A 


0 



I S3 


Hf (P 


isMr db 1 


old_slk_|>lr jspace to save the original ss and sp when stack-switching 

DSegEndS 


extrn int_tos ! word 
extrn _aIlocp : near 
extrn _freep : near 
extrn deaux : near 


public _txrdy 
public _netout 
public _net_in 

end 


;netdrvr.as* - the network device driver 

include pclan.inc 
include nac.inc 

;status bits defined in req. hdr. status word 

ERROR equ SOOOh 

DOC equ 0100h 

BUSY equ OEOOh 

;error codes defined for req. hdr. status word (error bit already set) 


ILLCMD 

equ 

0003h or ERROR or DONE 


NOTRDY 

equ 

OOOEh or mm or DONE 


OK 

equ 

DWE 


req 

equ 

es:[bx3 


reqhdr 

struc 




db 

7 

(length 


db 

7 

(unit no. 

end 

db 

7 

(cotnand code 

status 

dw 

7 

(status word 


db 

8 dup (?) 

(reserved 

reqhdr 

ends 



inithdr 

struc 




db 

(type reqhdr) dup (?) 


units 

db 

7 


end_ofsl 

dw 

? 

(end address 

end_seg 

dw 

7 


cnd_line 

dd 

7 


inithdr 

ends 





15'4 


rwhdr 

struc 




db 

(type reqhdr) dup (?) 


db 

? 


trf_ofst 

iW 

7 

{transfer address offset 

trf_seg 

dw 

7 

{transfer address segment 

cnt 

dw 

7 

{no. of bytes 

rwhdr 

ends 



trf 

egu 

dword ptr trf_ofst 


cblk struc 

db 

ack dv 

xbuf dd 

rbuf dd 

cblk ends 

TEXT segnnt byte public 'CODE* 

ItEXT ends 

_DATA segient para public ’DATA' 

_DATA ends 

~JSS segment word public 'BSS' 

bidataS label byte 
_BSS ends 

"bSSEND segment word public 'BSSEND' 
_BSSEND ends 

DGROUP group _TEXT,_DATA,_BBS,_BSSEtffl 
cs:_TEXT, ds:DffiOUP 
_TEXT segment 

org 0 

{header 

dw -1,-1 

dw OcBOOh 

dw strategy 

dw interrupt 

db ’NET 

_TEXT ends 

_DATA segtent 

;call table 

cftd_tab label word 

dw init 

dw ill_ctd 

dw ill_c«l 

dw ioctl_read 

dw read 

dw in status 


{pointer to next driver 
{attribute (CHR, lOCTL, OCRH) 

{device nane 


{control block (see dev.h) 
(type udpconn) dup (?) 

? 

? 

7 



ISS 



ill^ctd 

dv 

ill^ctd 

dtf 

vrite 

dv 

vritf 


eut_status 

4 m 


dv 

iectl_vrite 

dv 

open 

dv 

close 


isopen db 

0 

; = 0 only vhen device is not 

acMue dv 

old_5tk_ptr 

0 


reqhdr_pir 

dd 

7 

addr_«sg 

db 

'Invalid internet addresst* 

ver_«sg 

_DATA ends 

db 

'Incorrect DOS version - use 3.0 or highert' 

_BSS segment 

kiffer (>acket 
conn udpconn 


;trans»it buffer 

old^vector 

_BSS ends 

dd 

? ; original irg2 vector 

_TEXT segment 

strategy 

proc 

far 


iOV 

cs’iFord plr reqhdr_ptr,bx 


•ov 

ret 

csivord ptr reqhdrjlr + Z,bs 

strategy 

endp 


interrupt 

proc 

pushall 

far 


mv 

aXyCS 


•ov 

dsyax 


stk_svitch ■ain_to5 

sti 

cld 


Its 

bx,reqhdr_ptr 



al,req.cMi 




Mp 

j« 

al.Oeh 

c»d_err8r 



ckr 

shl 

MV 

call 

ax,1 
si, ax 

c»d_tabCsi3 


exit: 

les bx,reQhdr_ptr 

uv req. status, ax 

stk_re 5 tore 

^pall 

ret 


cid_error! 

ftOV 

jtp 

ax.ILLClffl 
short exit 


interrupt 

tndp 



ill_cwi 

proc 

near 



ftOV 

ret 

ax,ILICM) 


ill_cBd 

endp 



write 

proc 

near 



IK^V 

cip 

jl>e 

•ov 

®ov 

cx,req.cnt 

cx,UMAXDAT 

iw1 

cx,UMAXDAT 

req.cnlicx 

; check length of data 

iwl : 

iOV 

iOV 

bp,cx 

dx,ds 



Us 

ftOV 

•ov 

•ov 

•oveit 

si,req.lrf 

es.dx 

di, off set DaQUP:conn 
cx.COfUEN 

;get connection info 


lodsi^ 

my 

cs:ack_due,ax 

;ack flag 


Ids 

•ov 

•ov 

•ovtil 

si.Csil 

di, off set DGROUP:buffer.data 
cx.bp 

sget data to be sent 



/S' 


push hp 

■ov ax, offset DGROUPsboffer 

push ax 

wv ax, offset DGROUP:conn 

push ax 

call Bear ptr _udpsend ;send it 

add sp,6 

or ax, ax 

jnz Bot_rdy 

cap ack_doe,0 :wait for reply if ack flaj set 

je ok 

push conn.lport 

call near ptr _pclear 

inc sp 

inc sp 

les bx,reqhdr_ptr 

call near ptr _read 

jcxz not_rdy 

les bx,reqhdr_ptr 

aov req.cnt,cx 


ok: 

•OV 

ret 

ax, OK 

not_rdy : 

•ov 

ret 

ax.NOTRDY 

write 

endp 


out_status 

proc 

near 


call 

near ptr _txrdy 


jnz 

os1 


•ov 

ret 

ax, OK 

osl : 

•ov 

ret 

ax, BUSY or DONE 

out_status 

endp 



_read proc near 


les 

di,req.trf 

push 

es:CdiLlport 

call 

near ptr _precv 

inc 

sp 

inc 

sp 

or 

ax, ax 

jz 

no_pkts 


;clear all waiting aessages, 

;ve're interested in the reply to this one 


;read port 





SI, ax 


MV 

ilx,«x 


MV 

ax,rsi3[WR3.udp_leH jgel length of data 


xchg 

ah,al 


sub 

ax.timEN 


Cftp 

ax.UNAXDAT 


jbf 

_r0 


MV 

ax,(jrtAXDAT 

_rO: 

MV 

cx,ax 


Its 

hx,re(|hdr_ptr 


Its 

di,req.lrf 


MV 

ax.wtrd ptr Csi3[IffiR3.ip_src + 2 ,*get connection info 


xchg 

stosv 

ah,al 


MV 

ax,wrd ptr Csi3QW)fi3.ip_src 


xctig 

stosv 

ah,al 


MV 

ax, Csi3CUrofi3. udp_sport 


xchg 

stosv 

ah,al 


lea 

si,[si3.data 


les 

di,es:Cdi3[8] 


MV 

bp,cx 


Mveit 

jtransfer data to caller’s buffer 


push 

dx 


call 

near ptr _freep 5free the buffer holding the packet 


inc 

sp 


inc 

5p 


iOV 

ret 

cx.bp 

no_|>kls : 

_rea(i endp 

xor 

ret 

cx,cx 


read 

pruc 

near 


call 

near ptr read 


les 

bx,reqhdr_ptr 


MV 

req.cnt.cx 


MV 

ret 

ax, OK 

read 

tndp 




I S'O 


in_stitui pm m*r 

mr ax, OK 
rtl 


in_statiis 


open 


prec ftear 

cap isopen ,0 

jne opO 

xer k.bx 

MV esjbx 

MV bx,0ah * 4 

cli 

MV ax,fs:Cbx3 ;save and change irqZ vector 

MV word ptr oId_vector,ax 

MV word ptr esiCbx], offset DGROUP:_net_in 

inc bx 

inc bx 

MV ax,es:|]bx] 

MV word ptr old_vector + 2, ax 

MV es:Cbx],cs 

sti 



xor 


out 

opO: 

inc 


ftOV 


ret 

open 

tndp 

ioctl_read 

proc 


;port open call 
les 
push 

MV 

call 

inc 

inc 

MV 

MV 

MV 

ret 

iBctl_read endp 


ax, ax 
21h,al 

isopen 
ax, OK 


near 

di,req.trf 

es:Cdi3.1port 

si,es 

near ptr _popen 
sp 

sp 

es,si 

es:Cdi3.1port,ax 
ax, OK 


ioctl_write proc near 
$port close call 

les di.req.trf 




piSh 

esiCdil.Iport 


cal! 

near plr _pcIose 


inc 

ip 


iac 

sp 


MV 

ret 

ax, OK 

i 0 cll_»rite 

endp 


close 

^ec 

near 


dfc isopen 

np isopen, 0 

j«e cIO 


MV al,4 

out 21h,al 

xor bx,bx 

MV es,bx 

MV bxrikh « 4 

cli 

MV ax, word plr old_veclor 

MV es:llbx],ax 

MV ax, word plr old_v€ctor + E 

MV es:Cbx + 23, ax 


clO: MV ax, OK 


close endp 


tnil proc near 

MV req.end_ofsl, offset DGR(X)P5endadr8 
MV req.end_seg,cs 

MV ax , ds 

MV es , ax 

xor ax, ax 

MV di, off set DQlOUP!bdata3 

MV cx, offset D6R0UP:edata8 

sub cx,di 

rep slesb ; initialize variables in the _BSS segaent 

MV ah, 3% 

ini 21h ; check DOS version 

cap al,3 

jat iO 

MV dx, off set DGR(X)P:ver_as 9 

iip short abort 



I 


»o; 


abort: 


il: 


init 


Ifi bx,f«<jhdf_plr 

les 

•ev cx, Offffh 

wv al, ' ’ 

rtjx fcasb 

r«{m« scasb 

dec di 

repe scasb 

dec di 

push es 

push di 

call near ptr ^setaddr ;gel internet address string froa coMand line 

add sp,4 

or ax, ax 

jz il 

MV dx,offset DGROUP:addr_tsg 

les bx,reqbdr_ptr ; cannot be installed 

MV reg.end_ofst,0 

MV reg. units, 0 

MV ah, 9 

int 21h 

MV ax, OK 

ret 

endp 


TEXT ends 


_BSSEND segaent 
edataS label byte 


even 

db 

32 dup CMSTACK ’) 

, 'Stack for aain routines 

aain_tos 

label word 


db 

32 dup {'ISTACK ') 

jstack for the ISR netin 

inl_los 

label word 


db 

32 dup (?) 



endadra label byte 
BSSOfi) ends 


extrn 

_lxrdy : near 

exlrn 

_,udpsend : near 

extrn 

_netout : near 

extrn 

_net_in : near 

extrn 

_popen : near 

extrn 

_pclose : near 

extrn 

_pclear : near 

extrn 

_precv : near 

extrn 

_freep : near 

extrn 

_seladdr:neaf 

public int_tos 
end 



nttut.asa - network utility functions 


I ^ Z- 


_TIHY_ equ 1 

include rules. asi 
Headers 
CSejS 

_fcst«p proc near ;int bswap (int) 

; swap bytes in a word 

MV bx,bp 

MV bp.sp 

MV ax,CbpX23 
xchg ah,al 

■ov bp, bx 

ret 

_bswap endp 

Iswap proc near ilong Iswap (long) 

;swap bytes in a long 

MV bx , bp 

MV bp,sp 

MV ax,Cbp]CZ] 

MV dx,[bp3C4] 

xchg dh,al 

xchg ah,dl 

aov bp,bx 

ret 

_hwap endp 


chksi* proc near ;int chkstu (int *p, int n) 

MV bx,bp 

MV bp,sp 

MV es,si 

MV si,Cbp3EE3 

MV cx,Cbp3C43 

xor dx,dx 

csO! lods* 

idc dx,ax 

loop csO 



ilc 

dx.O 

Mf 

ax,dx 

•0¥ 

si,fs 

MV 

bp,bx 

rtl 


^cW(S» 

endp 

CSt^fidi 



public _bswap 
public _lswip 
public _chksMi 


end 



1 f ' f f p 
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